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1. ABSTRACT 

The PDP-9 Extended Memory Checkerboard diagnostic is designed to verify 
the operational status of core memory by testing for core failure on half 
selected lines under worst case noise conditions. The program will test, in 
4K segments, any memory configuration of from 8K to 32K words. The pro- 
gram uses eight data patterns for testing. 

2. REQUIREMENTS 

2. 1 Equipment 

A standard PDP-9 equipped with from 8K to 32K words of core memory. 

2.2 Storage 

The program occupies locations 200 to 3323 when residing in the lower 
4K field of an 8K bank, and locations 10200 to 13323 when residing in a 
high order 4K field. 

3. LOADING PROCEDURE 
3.1 Method 



The program may be loaded into any low order 4K field (00000 to 07777) of 

any 8K memory bank. 

a. The tape supplied is punched in the HRI mode. <yO£^ 



b. Place the tape in the reader. r^J^^ 

c . Set ADDRESS switches to 200 

d Press I/O RESET, and then READ-IN. 
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4. STARTING PROCEDURE 



4. 1 Starting Address 

The program is self-starting at the completion of loading. 

4.2 Restarting Address 



Restart from 215 (or 10215Vto setup the test limits and ACS^ 



Restart from 200 (or 10200)/to retain previous program conditions. 



4.3 Operator Action 

At the completion of program load the program will print "TEST LIMITS." 
The operator must then specify via the teletype keyboard the amount 
of core memory to test, followed by a carriage return. 

The program assumes the 4K fields numbered from through 7. Memory bank 
would contain field and 1; memory bank 1, fields 2 and 3, etc. The 
even numbered fields represent locations 00000 to 07777 of any 8K bank, 
and the odd numbered fields represent location 10000 to \7777 of any 8K 
memory bank. 

Use the following procedure to specify the test limits: 
a. Type two octal numbers, separating the numbers with a comma, and 
then a carriage return. 
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b. The first number typed signifies the first 4K field to test, and 
the second number the last 4K field to test. 

c. The program will begin testing with the lowest order 4K field to 
test and will test all consecutive fields up to and including the 
highest specified. 

d. The 4K field containing the program may be included. It will 

be tested after program relocation takes place. Program reloaction 
is described in Section 5.3.1. 
3. If an error is made during typing, press the RUBOUT key. "TEST 
LIMITS" will be printed again. Previous input is ignored. 

f. The highest 4K field to test may be typed first. The program will 
reverse the two numbers so as to make the first number the last field 
to test. 

g. Any single field or any 2 or more consecutive fields may be 
specified. 

For the following examples assume that the program is in field (00000 
to 07777 of bank 0), and the PDP-9 being used is equipped with 32K 
of core memory. 
Example A: 

TEST LIMITS 

0/ 7 ^ ( } denotes carriage return) 

The program will test all 32 K of memory. 
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Example B: 

TEST LIMITS 

7,0 J 

The program will perform exactly as Example A. 
Example C: 

TEST LIMITS 

3, 3j 

Field 3 will be tested alone. Field 3 is locations 30000 to 37777 

of memory bank 2. 
Example D: 

TEST LIMITS 

4,6,) 

Locations 40000 through 67777 (field 4, 5 and 6) will be tested. 
Example E: 

TEST LIMITS 

0, PROGRAM IS IN FIELD 

TEST LIMITS 

0, 1 ) 
Example E shows the message printed by the program whn a single field 
is selected which currently contains the program. 

"TEST LIMITS" is printed again, and the operator must then correct the 
test limits. 
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Operation of the program is unpredictable if the amount of core 
memory selected for testing exceeds the actual amount available, 
i.e., selecting 32 K for testing on a PDP-9 equipped with a 
maximum of 24K. 
4.3.1 Setup ACS 

After the test limits are specified, the program will print "SETUP ACS.!' 
For normal program operation, the ACS must be set to 000000 octal . 
Press any key on the Teletype keyboard after setting the ACS to all 0's. 



The program will then run until stopped by the operator. Normal pro- 
gram operation is defined as performing all eight checkerboard patterns 
on all of available memory from every 4K memory field. 
5. OPERATING PROCEDURE 

5.1 Program and Operator Action 

a. Load the program into memory field as described in Section 3. 

b. Specify the test limits via keyboard as described in Section 4.3. 

c. The message "SETUP ACS" will be printed. Set the ACS to 000000 
octal, and pr ess any keyboard key. 

d. The program will perform all four tests on all of core memory 
specified, after which, automatic program relocation takes place. 

5.2 Operational Switch Settings 

Normal operation of the program requires the ACS set to 000000 octal. 
Refer to Section 8.2. Applications, for switch settings provided for 
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trouble-shooHng . 
5.3 Subroutine Abstracts 



A total of eight data patterns are generated by the program. The 
eight patterns are divided into four tests. Each test generates one 
pattern and its complement, resulting in eight patterns. Each test uses 
common write and read loops, and all patterns are manipulated in the 
same manner. The following sequence is performed by each test on 
each 4K field under test. 

a. Write one pattern m all 4K fields selected. 

b. Set up for the lowest order 4K field, and perform a read, comple- 
ment, write sequence on each location in the 4K field. No error 
checking is performed. 

c. Repeat step (b) 15 more times on the same 4K field. 

d. Check each location in the 4K field for error by reading one 
location, complementing the data and rewriting in the same 
location. This read/write sequence is repeated 4 times on 

each location. Error checking is performed on each second read. 

e. Repeat step (d) on each location in the 4K field. 

f. After checking the 4K field, repeat steps (d) and (e) again. This 
time, the program stalls for a random period of time after reading 
and testing each consecutive 200 (octal) word block. The 
minimum stall time is approximately 10 US, and the maximum 
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approx innately 24 MS. The tested 4K field is not referenced by the 
program during the stall period, 
g. Set up for the next 4K field and repeat the read and test sequence in 
steps (b) through (f). 

When all fields have been tested in this manner, the next checkerboard 
pattern is written and steps (b) through (f) repeated. 

When all four tests have been executed, the program then relocates 
and performs all four tests again. 
5.3.1 Program Relocation 

Program relocation depends upon the amount of core memory being tested. 
Relocation is always within the group of 4K fields selected for testing, and 
under certain conditions the program may not relocate at all, but will 
remain in the current field to perform the tests (see below). The program 
normally first relocates to the highest order 4K field under test. From there 
it relocates to the next lower 4K field, after performing all tests. The 
program keeps relocating to the next lower 4K field until it reaches the 
lowest order 4K field under test. The testing and relocation cycle is then 
repeated. This procedure is repeated until stopped by the operator with 
ACS 0. As an example, if the program is initially in field 0, and 32K 
of memory is selected, the program would relocate from to field 7, then 
to field 7, 5, 4, 3, 2, 1,0 in that order. The program does not relocate 
to any field which is not included in the test limits. If fields 4, 5 and 6 
were selected, relocation would be from to 6, then to 5 and 4. 
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Fields through 3 would not contain the program again until included in 
the test limits. 

The program will not relocate if any of the conditions described below exist. 

a. A forced relocation has been made (Section 8.2.6). 

b. Only one 4K field is selected for testing. 

c. An error was detected in all of the available 4K fields under test. 

d. ACS 9 is on a 1 to inhibit program relocation (Section 8.2.5. 

This location of the program is indicated by the message "PROGRAM IS 

IN FIELD X", where X is the field number. This message occurs immediately 

after each program relocation. The message printout may be deleted 

by placing ACS 11 on a 1 at any time. The printout will resumt when ACS 11 

is placed on a 0. 

The program provides a degree of protection for itself by not relocating 
to any field which has an error. The number of the field in error is 
saved, and is compared to the destination field number before relocation 
takes place. If equal, the next lower field is set up as the destination 
providing it has no error. The first field found to be error-free is set up 
as the destination. Relocation will not take place if all fields have 
shown errors. The program will resume relocating to a field whenever 
the error condition does not exist. 
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During the relocation process, the program tests each data word transferred 
to the new field by performing the transfer, reading the word back and 
comparing the word with the correct data in the current field. This is 
done on a one for one basis until the process is completed. The entire 4K 
field is moved to enable loaders or any other data to be carried with the 
program. If an error is found during relocations, the address in error, and 
the "good" and "bad" data words are printed. The error printout format is 
described in Section 6. 

One pass of the program is defined as all four tests performed on all 

of memory from each 4K field. 
6. ERRORS 

6.1 Error Printouts and Description 



Immediately after the first error is detected, the header shown below 
is printed. The header is not printed again until restarting from 200 
or 211. 

TEST OCTAL ADR GOOD BAD PAT CONTROL WORD 

Where: 

TEST = The current test which detected the error. 

OCTAL ADR = The octal address which contains the data in error, 
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^OOp - This wi || a | ways equal 000000 or 777777 octal 

BAD = The data as read from that address. This will 

always contain one or more bits which are the 
complement of those shown under GOOD. 
PAT CONTROL WORD = The control word used by the current 

test to generate the checkerboard pattern. This will 
be 037700 or 740074 for test 1 , 001774 or 776000 for 
test 2; 037701 or 740075 for test 3; 001775 or 776001 
for test 4. 

TEST OCTAL ADR GOOD BAD PAT CONTROL WORD 



1 


014000 


000000 


000001 


074400 


1 


060200 


777777 


767777 


740074 


3 


014000 


000000 


000001 


037701 


4 


037555 


000000 


400000 


776001 



In the above example, errors were detected by tests 1, 3 and 4 In memory 
fields 1, 6 and 3. Test 1 detected a "picked up" bit at location 4000, 
field 1, and a dropped pit at location 200, field 6. Test 3 detected the 
same error as test 1 at location 4000, field 1, and test 4 detected a bit 
error at location 7555 in field 3. 



After each error printout, the program continues testing with the next 
sequential memory location. 
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6.1.1 



Three AC switches may be used to control the error printouts. Placing ACS 
on a 1 during the printout will cause a program halt after completion of printing 
ACS 1 on a 1 will inhibit the printout and cause a program halt. Press CON- 
TINUE to receive the error printout and to continue testing, ACS 2 on a 1 
will inhibit printout and ring the TTY BELL for each error. The use of these 
switches is described in Section 8.2 in more detail. 
PROGRAM RELOCATION ERROR 

This message will be printed upon detection of a relocation error. The error 
information will immediately follow as in the example below. After all 
errors have been printed the message "NO MORE ERRORS" is printed, and 
the program will then set up to relocate to the next lower field if one is avail- 
able. 



Example: 



TEST 



OCTAL ADR GOOD BAD PAT CONTROL WORD 



PROGRAM RELOCATION ERROR 

031000 741000 740000 

031001 611005 601005 



031002 



760207 760007 



NO MORE ERRORS 



The above example shows three consecutive errors during program relocation 
to field 3. Field 2 would be set up for relocation. Location 1000 in field 3 



-12- 



should have contained a SKP instruction, but bit 1 1 was dropped during 
the transfer. Bit 5 was dropped in the JMP instruction in 1001, and bit 
10 dropped in the LAW instruction in 1002. 

6.1.2 PRINTOUTS INHIBITED 

The above message is printed whenever 64 (decimal) consecutive printouts 
have occurred. Error printouts will be inhibited until after all four tests 
have been run eight times, after which the error printouts will resume 64 
more printouts. This feature is not used with program relocation errors. 

This feature is included to prevent lengthy error printouts when the program 
is being run for an extended period of time unattended. Error printouts may 
be resumed by restarting the program from location 215. 

6.1.3 PROGRAM IS IN FIELD X 

Where "X" is a field number: This message is printed if one of the following 
conditions exist: 

a The operator has specified a single field for testing and that field 
contains the program. Select another field, refer to Section 4.3. 

b. After every program relocation. 

6.1.4 ERROR IN SELECTED FIELD 

This message is printed when a forced program relocation is attempted and 
the program has previously detected a data error in that field. Type a 
new field number, or press carriage return to resume automatic program 
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relocation See Section 8.2.7 for instructions to force the program to 
another field. 

6.1.5 FIRST/LAST ADR IS WITHIN PROGRAM 

The operator has specified the first or last address, as indicated by the 
printout, which is within the program area. Retype a new address. See 
Section 8.2„8 for setting up scope loops via keyboard. 

7. RESTRICTIONS 

7.1 Starting Restrictions 



Start from 200 to set up the test limits and ACS and to reinitialize the program. 

Start from 215 to retain the present program conditions. 
7.2 Operating Restrictions 

Don't use the STOP key to halt the program. Please ACS on a 1 . 
8. MISCELLANEOUS 

8. 1 Execution Time 



The time required to run all four tests on one 4K field is approximately 30 
seconds. 
8.2 Applications 

To give the operator control of the program, the ACS are assigned unique 
functions. The ACS assignments and their effect on the program are des- 
cribed below. Please note that it is important that the program be halted 
with ACS rather than the STOP key. Using the STOP key may result in 
a halt while the program is relocating. The operation may not be inhibited 
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immed iately since most of the ACS are sensed only after all tests have 
been performed. 

8.2.1 Halt After Test or Error Printout - ACS 

Placing ACS on a 1 at any time while the program is running will cause 
a halt after the current test is completed on one 4K field. The PC will 
= 671 . The ACS may then be changed if desired. Press CONTINUE to 
recover. If no ACS changes the program will assume the test which was 
interrupted. If ACS changes were made, the new settings are stored and 
executed. 

Raising ACS during an error printout will cause a halt at the same 
location mentioned above, after the printout. 

8.2.2 Delete Error Printout and Halt on Error - ACS 1 

Raising ACS 1 at any time cause all data error printout to be inhibited. 
A halt will occur with the PC = 671 if an error occurs. Press CONTINUE 
to receive the error printout and to resume testing. ACS changes may be 
made. 

8.2.3 Bell on Error - ACS 2 

ACS 2 on a 1 causes the program to rtng the TTY Bell whenever an error 
occurs. 

This is convenient when testing with power supply margins. ACS 1 has no 
effect if ACS 2 and 1 should both happen to be on a 1 . If ACS and 2 
are 1, a halt occurs after the BELL. Proceed as described in 8.2 c l „ 
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8.2.4 Test Selection - ACS 3 through 6 

Any one, or any combination of tests may be executed by raising any 
combination of ACS 3 through 6. ACS 3 specifies test 1; ACS 4, test 2; 
ACS 5, test 3; ACS 6, test 4. The test specified by the most significant 
ACS will be performed first. 

If all four ACS are down, all four tests are performed in sequence. 

The ACS may be changed while the program is running. The new tests 
will be recognized after the last of the current selection is performed. 

8.2.5 Inhibit Program Relocation - ACS 9 

The program normally relocates automatically as indicated by the EPC 
and MB Indicators. To retain the program in its current 4K field, place 
ACS 9 on a 1 at any time. 

8.2.6 Inhibit "PROGRAM IS IN FIELD" - ACS 11 

The program normally prints the field number containing the program 
immediately after each relocation. The message may be suppressed by 
placing ACS 11 on a 1 at any time. To resume the printout place ACS 1 1 
on a 0. This switch does not inhibit the message printout when an operator 
error is made . 

8.2.7 Program Relocation - ACS 12 

The operator may relocate the program to any 4K field by specifying a 
forced relocation with ACS 12 on a 1. Use the following procedure: 

a. Halt the program with ACS 

b. Place ACS 12 on a 1 and ACS on a 0. Press CONTINUE 
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c. A printout will occur which instructs the operator to place ACS 12 
on a 0. The program will loop until this is done. 

d. With ACS 12 on a the message GO TO FIELD is printed, followed 
by the program waiting for a field number. 

e. Type the desired field number (0 through 7) 

f. Relocation is done immediately, and the program is executed in 
the new field. 

The program will not relocate again until restarted from 200, or in step (d) 
above, press carriage return to resume automatic relocation. 

If a data error has previously detected in the new 4K field, the message 
"ERROR IN SELECTED 4K" is printed, followed by step (d) repeated. 
Type another field number, or carriage return to resume normal operation. 

Each word transferred to the new field is tested in the same manner as 
described in Section 5.3.1, Program Relocation. Printouts occur for 
each relocation error. Step (d) will be repeated after all error reporting 
is done. Type another field number, or carriage return to resume normal 
operation. 

At times, the program will automatically restart at 200 and print TEST 
LIMITS. This will occur whenever a single field has been selected for 
testing, and the operator relocates the program to that field. New test 
limits must be specified since the program cannot run the tests on its own 
4K field. Proceed as described in Section 4.3. 
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8.2.8 Request Scope Loop - ACS 13 

The operator may initiate, via keyboard, any single or any group of con- 
secutive locations up to 4K for the program to loop on. Any of the four 
data patterns may also be requested. No error checking is done in the 
loop. The loop reads a location, complements the data, and rewrites into 
the same location. Each location within the limits specified is treated like- 
wise. The limits specified are looped until halted with the STOP key. The 
program must be restarted from 200 to resume normal operation. 

Initiate the loop with the following procedure : 

a. Halt the program with ACS 0. 

b. Place ACS 13 on a 1 and press CONTINUE. 

c. The message "TEST" will be printed. The program now waits for 
a selection by the operator. 

d. Type the desired test number. Either 1, 2, 3, or 4. An auto- 
matic carriage return follows. 

e. The message "FIRST ADR" is printed. 

f. Type the first address of the group to be looped by the program. 
This number must be a 5 digit octal number. An automatic 
carriage return follows. 

g. The message "LAST ADR" is printed. Type a 5 digit octal address 

to indicate the last address of the group. The scope loop is immediately 
entered after the last address is typed. 

The loop may also be initiated by restarting from 200 or 215 and placing 
ACS 13 on a 1 under "SETUP ACS." 
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If a typing error is made, press the RUB-OUT key. A ? will be printed, 
and the input routine will restart with "TEST." 

Example A: 
TEST 3 

FIRST ADR 10100 
LAST ADR 10100 

Address 100 in field 1 will be looped continuously after checker- 
board pattern number 3 is written in the entire 4K field. 

Example B: 
TEST 2 

FIRST ADR 20000 
LAST ADR 27777 

The entire 4K field number 2 will be looped after pattern number 2 
is written. 

Example C; 
TEST 2 

FIRST ADR 27777 
LAST ADR 20000 

The input routine will reverse the two addresses and perform exactly 
as example B. 

Example D: 



TEST 4 

FIRST ADR 00100 

FIRST ADR IS WITHIN PROGRAM 

FIRST ADR 10100 

LAST ADR 10200 

Example D shows the message printed when an address is selected 

which is in the field containing the program. In this case, field 0. 
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Example E: 
TEST 5 
? 

TEST 4 

FIRST ADR 70000 
LAST ADR 73000 

In example E the operator typed an invalid test number. The pro- 
gram printed the question mark, and restarted with TEST. 



The instructions in the body of the scope loop appear below: 



SCP1 



STSCP 



.LOC 1400 

EEM 

LAC* MEM ADR 

CMA 

DAC* MEMADR 

LAC MEMADR 

SAD LTST 

JMP STSCP 

ISZ MEMADR 

JMP SCP1 

LAC ADRA 

DAC MEMADR 

JMP SCP1 



/ENABLE EXTEND MODE 
/READ 

/COMPLEMENT DATA 
/WRITE 
/ADDRESS 

/COMPARE TO LAST 
/DONE 

/INCREMENT ADR 
/LOOP 
/FIRST ADR 
/RESTORE COUNTER 
/GO TO TOP OF LOOP 



Note that one 4K field is the maximum that may be looped by the program. 
If 4K field boundaries are overlapped, the checkerboard pattern will be 
written in the field specified by the FIRST ADR. The scope loop, however, 
will reference the locations specified. 



-20- 



8.2.9 Bit Suppression - ACS 14 

Excessive error printouts due to one or more bits in error may be suppressed 
by specifying the bit positions via keyboard input. The bit positions will 
still contain the checkerboard pattern, and will be tested. Error printouts 
will occur for any bit position not selected. 

Use the following procedure: 

a. Halt the program with ACS 0. 

b. Place ACS 14 on a 1, and press CONTINUE. 

c. The message "SUPPRESS" will be printed and the program waits 
for input. 

d. Place ACS 14 on a 0. 

e„ Type in decimal, the desired bit position to be suppressed (0 

through 17). 
f. Press the carriage return key. 
Error printouts for that position alone will not occur 

To suppress more than one bit position: 

a. Proceed as above, but separate the selected bit positions with a 
comma in step (e). As an example, to suppress bits 0, 8 and 17, 
type 0, 8, 17 J . It is not necessary to type the positions 
in numerical order. 
Press RUB-OUT and then CARRIAGE RETURN to continue with error print- 
outs of all bit positions. 



-21- 



9. 



Each time the bit suppressing routine is entered with ACS 14, the previously 
selected positions must be retyped if suppression is wanted. 

The program is not effected in anyway by the typing of letters, or numbers 
greater than 17. The resulting positions suppressed would be unpredictable. 
PROGRAM DESCRIPTION 

The program is designed to run worst case checkerboard patterns for 2 1/2D 
memory stacks. A minimum of 8K of core memory is required and a maximum 
of 32K words may be tested. The program automatically relocates from 4K field 
to 4K field to test all of memory from each field. The patterns generated by the 
program are shown below as they would appear in a portion of one bit plane. The 
patterns are complemented every 200, 400, 600, etc., or every 100, 300, 
500, etc., octal locations as shown. 



TEST 1 



y axis 



200 



x axis 



| 000011 11 11 110000 
0000111111110000 
1111000000001111 
1111000000001111 



Control word 037700 



y axis 



200 



x axis 



1111000000001111 
1111000000001111 
0000111111110000 
0000111111110000 



Control word 740074 
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y axis 



200 



TEST 2 
x axis 
000000001 11 11 11 f 

ooooooooii mm 

1111111100000000 
1111111100000000 



Control word 001774 



y axis 



200 



x axis 



1111111100000000 
1111111100000000 
0000000011111111 
0000000011111111 



Control word 776000 



axis 



200 



TEST 3 



x axis 



0000111111110000 
1111000000001111 
1111000000001111 
,0000111111110000 



Control word 037701 



axis 



200 



x axis 



1111000000001111 
0000111111110000 
0000111111110000 
,1111000000001111 



Control word 740075 
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y axis 



200 



TEST 4 

x axis 
000000001 1 11 11 11 
1111111100000000 
1111111100000000 
rOOOOOOOOllllllll 



Control word 001775 



y axis 



200 



x axis 



1111111100000000 
0000000011111111 
0000000011111111 
rl 1 11 1 11 100000000 



Control word 776001 



10 



The operator is given a degree of control over the program with the AC 
switches. The operator may halt the program (0); inhibit error printouts 
and halt on error (1); substitute the TTY BELL for error indication (2); 
select any one or a combination of tests (3 through 6); inhibit program 
relocation (9); relocate the program to any 4K field (12); set up scope 
loops via keyboard input (13); and inhibit error printouts for one or more 
bit positions (14). 
LISTING 



9CHKR 



PA (,t 







.TITLE 9CHKR 






.FULL 


4i- 2t^M 




.LCtC 21k) 


a t 2 k) 


t 

703302 BEGIN CAF 




idi-201 


143165 


f ) I M 


FL'\GS 


v) t- 2 2 


100663 


JmS 


where 


iM- 20 3 


043166 


DAC 


INSFLU 


wt'204 


li?1674 


J MS 


SLUTS 


^ i 20b 


l/i2v)i32 


J, -IS 


SETAC 


Wi- 206 


777777 


LA* 


-1 


id(^2^7 


/J43235 


MAC 


mi rsup 


n ;•'■ 2 1 w 


7777(50 


L A « 


-1 -'0 


vn 211 


043304 


DAT 


MAXERH 


*h212 


7 77 770 


LAr 


-1 ' 


wt- 213 


043163 


I.) A C 


SI <T4 


k)t'214 


143164 


0** 


Mil^KM 


Mv''215 


7^7704 RTN1 LL'i 




H*216 


2H1*36 


LAC 


GLTAP-1 


*)•• 217 


041621 


OAC 


LUCAT+4 


v)i- 2?0 


l»le>15 


JMS 


LOCAT 


m 221 


142715 


j-,£H 


PH !1 R 


vH 222 


203215 


LaC 


LAST1 


Wt 223 


543214 


SAD 


FIWST1 


tf( 224 


741'.-1i}PI 


S<\P 




/). 225 


ft W ? 3 m 


Ji-lP 


. + 3 


tfi/ 2 26 


543166 


SAM 


I.MSFl U 


rii'22 7 


6 v) ? 2 


J^P 


PL^IN+2 


*H 23 (D 


201103 


LAC 


FN TBI 


a/231 


043305 


Dai; 


E^-RD 


w» 232 


77777« 


LAW 


-1 ' 


rf("233 


043211 


OAC 


CT16 


wi-234 


760^00 


LAW 




W P : 2 3 b 


063305 


DAC» PHWRO 


Hi-236 


443305 


IS* 


E R w R D 


*H237 


4432H 


IS? 


rri6 


tf k 2 4 


6'710235 


JhP 


.-3 



/COPYRIGHT 1968, DIGITAL EQUIPMENT CORP,, MAYNAHO, MASS, 

/ 

/PDP-9 EXTENDED MEMORY CHECKERBOARD. 8K MINIMUM 

/RFQJIRED. S.A.=200. RESTART AT 215. 

/ 



/CLEAR PROGRAM FLAGS 
/SEE WHERE PROGRAM IS 

/SAVE BANK# 
/SETUP TEST LIMITS 
/SETUP ACS 



/MASK FOR BIT SUPPRESSION 



/ERROR TAbLE POINTER 



/LAW = NO ERROR I ,\i TaHLE 



.EJECT 



VOKR 



PAGE 



0t'241 


043167 


^P'^42 


100663 


01 243 


043166 


0W244 


201103 


KIP 245 


043305 



/NO ERROR IN LAST 



OAi: LAST 

JMS WHERE 

DAC I N S F L 

LAC EKTBL 

DAC FRWRD 
/RETURN TO STOVER AFTER ANY ACS CHANGES 
/WHILE RUNNING 



/ERROR TABLE POINTER 



/)( 246 
/H 2 4 7 
rfi 250 
idt'?51 
0>'252 
tfi 253 
w. 254 
/H-255 
t) v 2 5 6 
fH 25 7 
wu 260 
Wt 261 
tft 2c>2 
u« 263 
v> i- 2 6 4 
0! 265 
vii-26 6 
-n 26 7 



7b0C')04 
50 3302 
043170 
51^3252 
7 4 4^00 
602425 
750;'iZ)4 
503251 
740?0f 
6 0110 6 
750/104 
50325''' 
740200 
101431 
203170 
503300 
7412tfl* 
6W0323 



TOVFR 


LAS 






Awij 


K577 




D A C 


MCWA 




Anlfl 


K4 7 ! 




S^A! 


1CLL 




Jflp 


FCDMV 




LAS 






A NO 


K2 ; i 




S^A 






JHP 


KY^RD 




LAS 






AND 


Kl'-I 




S^A 






JUS 


SUPBIT 




LAC 


MCWA 




AND 


K74K 




SiMA 






JMP 


OUALL 



/READ TEST PARAMETERS 



/BIT 12 Al 



hORCt HELOCAfE 



/RELOCATF 



/WAIT FOR 



/BII 16 
INPUT 



Al 



KEYBOARD INPUT 



/PARAMETERS 
/MASK BITS 3 10 6 



/A L 



00 ALL TESTS 



EJECT 



9CHKR 



PAGE 







/EXAMINE 

/ 

EXTST 


TEST 


SWITCHES 3 TO 6 




00270 


203170 


LAC 


MCWA 




00271 


503276 




AND 


K40K 




00272 


740200 




SifA 




/BIT 3 A 1 = TEST 1 


WP 273 


600327 




JHP 


TSTl 




00274 


203275 


EXAM? 


LAC 


K20K 




^ t 2 7 5 


503170 




A'NJIJ 


MCWA 




00276 


740200 




5^A 




/BIT 4 Al = TEST 2 


01- 277 


600340 




J MP 


TST2 




00300 


203273 


EXAM3 


LAC 


Kl^K 




0-301 


50 3170 




A nj[i 


MO<A 




00-3P2 


740200 




S*A 




/BIT 5 Al = TEST 3 


<H 303 


bv 0351 




JrtP 


TST3 




•J0 30 4 


203271 


FXAM4 


LAC 


K4K 




i^ji 3C15 


503170 




AND 


MCWA 




/H-306 


740200 




Sif A 




/BIT 6 Al = TEST 4 


W03 7 


600362 




J IP 


TST4 




00310 


707704 




LE^ 




/EXTEND OFF 


i- 311 


443163 




Is*" 


SIXT4 


/64 PASSES IF SKIP 


.4131 2 


600316 




J MP 


. +4 




W0 313 


143164 




n^.^ 


MOPRNT 


/CLEAH NO PRINT FLAG 


W0314 


777770 




LAW 


-10 


/RESTORE COUNT 


kiP 31b 


043163 




OAC 


SIXT4 




00316 


750004 




LAS 






0031.7 


503270 




AWD 


K4 '0 




01- 320 


740200 




SsA 




/BIT 9 Al = DON'T MOVE 


0J0321 


600246 




JMP 


STOVER 




0t 322 


602141 




JmP 


CMuVF /DONE ALL 


TESTS. SETUP 
/FOR RELOCATION 



00323 


2W3170 


32 4 


243300 


00325 


043170 


00 326 


600327 



00 32 7 


20317:1 


00330 


043171 


00331 


043172 


00 33 2 


760261 


00333 


043203 


334 


100373 


335 


100404 


00336 


600274 


00337 


600334 



/SET ALL TFST BITS 

/KESTORE 

/TEST 1 



/ 

/SETUP TO PUN. ALL TtSTS 

/ 

DOALL LaC MC'-'A 

XUP K74K 

A C M C i A 

JmP TSTl 

/ 

/TFST 1. WRITE CHECKER PATTERN #1 

/ 

TSTl LAC PC4A /TEST 1 PAT, CONTROL WORD 

OAC PCs" 

OAC CNTRL 

LAW 261 /ASCI 1 1 

OAC TimUM /TEST NUMBER 

J MS NETWK /GO WRITE IN ALL f-ItLUS 

JrtS CRFAO /NOW GO REAU AND TEST 

JMM FXAM? /SEE IF TEST ^ WANTED 

JMP ,-3 /DO COMPLEMENT 

/ 

/TEST 2, WRITE CHECKER PATTERN #2 

/ 



34 
00 341 



203174 
043171 



TST2 



LAC PCWB 
DAC PCW 



/TEST 2 PAT, CONTROL WORD 



•^CHKR 



PAGE 



kW342 


043172 


0K343 


760262 


fe) f i 3 4 4 


043203 


0^345 


100373 


•A\ 346 


100404 


et fr 347 


600300 


rfC-350 


600345 



OAC CNTRL 

LAW 262 

DAC TNUM 

JMS NETWK 

JMS CREAD 

JMP EXAM3 

JMP .-3 



/ASCII 2 
/TEST NUMBER 
/WRITE IN ALL FIELDS 
/READ AND TEST EACH FIELD 
/SEE IF TEST 3 WANTED 

/DO COMPLEMENT 



.EJECT 



VCHKR 



PAGE 







/TEST 3. 

/ 

TST3 


WRITE CHECKER 


PATTERN # 3. 


01* 351 


203175 


LAC PCWC 




/TEST 3 PAT. CONTROL WORD 


k) 1-352 


043171 




DAC PC* 






dv»353 


043172 




nun CNTRL 






0F354 


760263 




LAW 263 




/ASCII 3 


00355 


043203 




DAC TNI'M 




/TEST NUMBER 


0t 356 


100373 




JMS METWK 




/WRITE IN ALL FIELOS 


0/357 


100404 




JMS CKFAD 




/READ AND TEST EACH FIELD 


Hi 360 


600304 




JMP EXAM4 




/SEE IF TEST 4 SELECTED 


tat 361 


600356 


/ 

/TEST 4. 

/ 

TST4 


JMP .-3 




/DC) COMPLEMENT 






WRITE CHECKER 


PATTERN # 4 


/Hi 362 


203176 


LAC PCWl) 




/TEST 4 PAT. CONTROL WORD 


kH 363 


043171 




DAT PC.J 






Wt-364 


043172 




OAC CNTRL 






00365 


760264 




LAw 264 




/ASCII 4 


36 6 


043203 




DAC TiMUM 




/TEST NUMBER 


36 7 


100373 




JMS Nfc.TWK 




/WRITE IN ALL f IELDS 


00370 


100404 




JMS CREAO 




/TFST EACH FIELD 


0t 371 


600310 




JMP FXAM4+4 




/PREPARE TO RELOCATE 


00372 


600367 


/ 

/ROUTINE 
/ 

NETklK 


JMP .-3 




/DO COMPLEMENT 






TO SETUP ADDRESSES 


FOR WRITF LOOP 


00373 


000000 









i^^ 37 4 


100624 




JMS StTUl 




/SETUP 1ST FIELU TO TEST 


rf! 375 


100633 




JMS C3ANK 




/SEE IF IT HAS PROGRAM 


id l- 376 


741000 




Sap 




/NO 


0H 377 


620373 




JMP* NFTWK 




/EXIT 


t 4 


100415 




JMS GENPAT 




/ACTUALLY WHITE ONE FIELD 


t- 4 1 


100653 




JMS NXTBNK 




/SETUP FOR NEXT FIFLO 


K)lr4C2 


600375 




JMP NETWK+2 




/SEE IT IT HAS PROGRAM 


nit 403 


620373 


/ 

/ROUTINE 

/ 

CHFAD 


JMP* NETWi\ 




/WROTE ALL. EXIT 






Tf) SETUP ADDRESSES 


FOR READ LOOP 


di 404 


00 00 00 


it' 






0v- 405 


100463 




JMS READ 




/ACTUALLY READ AND TEST 1 FlEL 


wfr 406 


777774 




LAw -4 






00 40 7 


243171 




XOP PC-- 1 




/AC=COMPLEMENT UF PCW 


0^41 id 


543172 




SAO C'nITRL 




/ALL UONE IF EQUAL 


00411 


620404 




JMP* CPEAD 




/EXIT 


00412 


043172 




DAC CnITRL 




/CNTRL = COMPLE Ml- NT PATTERN 


00413 


440404 




IS/ CRTAD 




/RETURN+1 


00414 


620404 




JMP* CHEAQ 




/EXIT AND WRITE COMPLEMENT 



.tJECT 



VChKR 



PAGE 



/WRITE ROUTINE FOR ALL PATTERNS 



0t'4l5 


/ 

0K0M00 GENPAT 0. 




a 416 


203172 


LAC 


CNTRL 


0M17 


1343202 


DAC 


PATN 


0C:420 


740020 


RAR 




01-421 


203254 


LAC 


K1M0 


MA??. 


7 4 04 01?! 


SNL 




/ii- 4 23 


750*400 


CLA 




/. l 4 2 4 


043204 


rue 


LwH 


0f 425 


343255 


TAr> 


K2?'0 


0t< 426 


043205 


DAC 


UPR 


rti"4?7 


777760 


LAw 


-2* 


* 4 3 


043211 


DAC 


CT16 


Wi' 431 


203202 


LAC 


PATN 


*n 432 


043177 


DAC 


PATR 


0n4 33 


203177 I 


*LOOP LAC 


PATR 


/it- 434 


744010 


RCL 




tfi-4 35 


043177 


DAC 


PATR 


ww 436 


751400 


S*L! 


1CLA 


*h 437 


740001 


CMA 




01 440 


707702 


FEM 




W t 4 41 


063206 


DAC» MEMADR 


0* 442 


443206 


IS? 


MEMADR 


^ 4 4 3 


443210 


is? 


CT4K 


0t444 


741^00 


SkP 




1 ■ 4 4 5 


620415 


JMP» GTNPAT 


01-44 6 


443211 


IS? 


CT16 


01-447 


600433 


JMP 


WLDOP 


w ^ 4 5 


203206 


LAC 


MEMADR 


a (•'4 51 


503267 


AMD 


K377 


('- 4 52 


543204 


SAD 


LwR 


*u 4 53 


600457 


JMP 


.+4 


Kit •' 4 5 4 


543205 


SAO 


UP* 


^ t' 4 5 5 


741000 


SKP 




r> 4 56 


600427 


JMP 


WLOQP-4 


ri k' 457 


203202 


LAC 


PATN 


yi 4 6 


740001 


CMA 




id)K461 


'043202 


DAC 


PATN 


0M62 


60 4 2 7 


JMP 


WLDOP-4 



/PATTERN CONTROL WORD 

/SAVE 

/SIT 17 TO LINK 

/64 DECIMAL 

/TEST BIT 17 

/BIT 17=0 SAYS NO OFFSET 

/LWR=0 OR 100 

/128 DECIMAL 

/UPR=300 OR 200 

/-16 DECIMAL 

/SHIFT COUNTEK 

/CURRENT CONTROL WORD 

/SAVE AGAIN 

/START GENERATING A PA TFRN 



/IF L=l, WRITE 777777 



/WRITE 

/ADDRESS+1 

/DONE 4K WHEN SKIP 

/EXIT 

/CHECK 16 ADDRESSES YET 

/NO 

/CURRENT EXTENDED ADDRESS 

/CLEAR ALL BUT 10 TO 17 

/TIME TO COMPLFMENT IF EQUAL 

/COMPLEMENT PATTERN IF EQUAL 

/NO COMPLEMENT YET 
/CURRENT PATTLRN WORD 
/COMPLEMENT 

/WRITE NEXT 64 OR 128 ADDRESSES 



EJECT 



9CHKR 



PAGE 







/ 

/READ AND 


TEST ROUTINE. READ 


AND TEST ONE 4K 






/FIELD AT 


A TIME. 


TEST EACH 


FIELD TWICE, RANDOMLY 






/STALLING 


AFTER EACH 128 WORD BLOCK DURING THE 






/SECOND P 

/ 

READ 


ASS. 






0! '4 6 3 


13000(50 









/ll< 4 64 


180624 




JMS 


SETU1 


/SETUP FOR FIRST (• ILLU 


/H 4 65 


100633 




JMS 


CBANK 


/SEE IF IT HAS PROGRAM 


/It- 466 


741000 




SuP 




/NO 


«H'467 


62^463 




JMP* 


PEAO 


/NO MOPE TO TEST 


0(- : 4 70 


1P0577 




jus 


PCOMP 


/COMPLEMENT FIELD 16 TIME! 


•.11 471 


777776 




L A a 


-2 




Ct 472 


043225 




DhC 


ADRA 


/PASS COUNTER 


M 473 


20 3172 




LAC 


CNTRL 


/PAT. CONTROL WORD 


0! 474 


043177 




DAC 


patr 


/SAVE 


/)v475 


777770 


RSCNT 


LAW 


-10 ~ 


/ -8 DECIMAL 


0C476 


043212 




run 


CT128 


/COUNTS 8- 16 WORD BLOCKS 


/H 477 


777760 




L A w 


-20 




0*500 


043211 




OmC 


CT16 


/SHIFT COUNTER 


/H 501 


2.033 77 




LAC 


PATR 




/J u 5 2 


043202 




run 


PATN 




v) i 5 n 3 


203202 


RLOOP 


LAC 


PATN 




/J ^ 5 4 


744010 




RUI 






,^505 


043202 




DaC 


PATN 




Wi 506 


751400 




S/Sl'.OLA 




/LINK Al = WORD 


/>i/50 7 


740001 




C-M 






»j v 5 1 


043220 




iun 


noooi 


/WHAT DATA SHOULD RL 


tfl 511 


777774 




l A:- 


-4 




/H 512 


043213 




DAC 


CT04 




wt-513 


70 7 702 




F t "1 






0* 514 


223206 


RCMA 


LAC* 


MEMADR 


/READ 


VK 515 


740001 




CM A 




/COMPLEMENT 


0v 516 


063206 




n a c * 


MEMAOR 


/WRITE 


vit--517 


223206 




L A("» 


MEMADR 


/HEAD 


01 520 


740001 




Cii/> 




/COMPLEMENT 


0i 521 


/J63206 




DAC* 


MEMADR 


/WRITE 


0! 522 


223206 




Lac* 


MEMADR 


/HEAD 


Kit 523 


543220 




SAO 


GOOD1 


/COMPARE 


0*524 


741000 




SKP 




/OK 


0t 525 


100740 




JMS 


FRROR 


/PRINT INFO 


0!- 526 


443213 




\6t 


CT04 


/COMPLEMENT 8 TlMtS 


0i- 527 


60 0514 




JriP 


PCMA 




wl 530 


443206 


ERR IN 


IS/ 


MEMADR 


/ADDRESS *1 


id v 5 31 


443210 




IS* 


CT4K 


/4K WHFN SKIP 


0i 532 


600547 




J IIP 


OKI 6 




01 533 


443225 




IS/ 


AURA 


/2 PASSES IF SKIP 


01-534 


741000 




SkP 






0*535 


600564 




JriP 


DREAD 




4i 536 


200576 




LAC 


JMP1 


/C (JMPD = JMP C126 


01-537 


040557 




DAC 


PSTOR 




0C540 


040563 




DAC 


RSTOR-M 




i^ f 541 


100676 




JMS 


STALL 


/STALL RANDOMLY 


id (-:• 5 4 2 


770000 




LAW 


- 1 


/ -4K 


00543 


043210 




DAC 


CT4K 


/4K COUNTER 



VChKR PAGE 



0t 544 


343206 




TAD 


MEMADR 


kH-545 


043206 




DAC 


MEMADR 


vot-546 


600473 


/ 

CK16 


JMP 


RSCNT-2 


«H 547 


443211 


IS? 


CT16 


^ t 550 


600503 




JMP 


RLOOP 


vH 551 


2^3206 




LAC 


MEMADR 


«3 1' 5 5 2 


503267 




AND 


K377 


*n- 553 


543204 




SAO 


LWR 


tfi'554 


600560 




JMP 


.♦4 


k'i 555 


543205 




SAO 


DPR 


ki^556 


741^0/ 




SKP 




.<H 557 


600477 


RSTOR 


JMP 


RLOOP-4 


01 560 


2K3177 




LAC 


PATR 


/j 1/561 


740^01 




CM A 




</H 562 


043177 




DAC 


PATH 


wt 563 


6fc0477 




JMP 


RLOOP-4 



/RE- TEST WITH STALLS 

/16 WOROS WHEN 

/LOOP 

/CURRENT ADDRESS 

/LWR s OR 100 
/TIME TO COMPLEMENT 
/UPR = 20(0 OR 300 
/COMPLEMENT PATTERN 

/PAT. CONTROL WORO 
/COMPLEMENT 



.EJECT 



9CHKK 



PAGE 



M 


564 


\h\ 


565 


\dv 


566 


.at 567 


/it 570 


J\ V 


571 


■/I I 


572 


01 


573 


WW 


574 


/H 5 75 



M 5 76 



/)', 


577 


01, 


■600 


J) i, 


601 


>iV 


602 


/<(' 


6H3 


i/H 


604 


tfv 


605 


/H 606 


/u 


607 


v5 1- 


610 


Z/l 


611 


/IV 


612 


kSt' 


613 


/J I 


614 


v, i' 


615 


»i I 


616 


t). 


617 


«ji/ 


62k) 


tft- 


621 


/il 


622 


V 


623 



200573 
040557 
040563 
100653 
600465 
620463 

443212 
600477 
100676 
600475 

600572 



000001/' 

777760 
043211 
203206 
243272 
043206 
707702 
223206 
740001 
063206 
20 320 6 
5032 7? 
741200 
600621 
777777 
34 3206 
4 3 2tf6 
6 6 06 

443211 

6 vl 6 2 
620577 



DREAD 


LAC JMP2 




DAC RSTOR 




PAC RSTOR+4 




JrtS NXTBNK 




JMP READ+2 




JnP* READ 


/ 




C12tt 


lb/ CT128 


JMP2 


J.1P RlOOP-4 




JMS STALL 




Ji-iP RSCNT 


/ 




JMP1 


Ji-lP Cl?tt 


/ 




/RCOMP 


ROUTINE. READ 


/4K FIELD 16 TIMES. Rl 


/ 




RCOMP 


i/ 




L A a - 2 i 




OAC CT 16 




LAC M E '"< A 1 1 R 




XijK K7777 




pal. hi-: ^APH 




f.l* 


CLOOP 


LAO MEMAUH 




C:*iA 




rue* memaur 




LAC *E'-'AOH 




A .Mji K/777 




S;yA 




JfiP f'A^SC 




LA.x' -1 




T At.- ^E-'iAPH 




OAC ME'UDH 




JMP CL )OP 


/ 




PASSC 


ISr f:T16 




Jit- K o " ) M P + 3 




J m f- » k i ; m P 



/RSTOR = JMP RLOOP AGAIN 

/SETUP FOR NEXT FIELD 
/SEE IF IT HAS PROGRAM 
/READ ALL FIELDS. EXIT 

/STALL RANDOMLY AFTER 12H 

/MAX. OF 3 7 Mb 

/READ NEXT 120 WORD BLOCK 

/JMP CONSTANT 



COMPLEMENT THE 
BACKWARDS 



/-16 UFCIMAL 
/PASS COUNTER 



/F I RST TO REAL) = X7/7/ 

/READ 

/COMPLEMENT 

/WRITE 



/DONF IF AT AUDkESS 

/ADDRESS -1. 

/READ 

/16 PASSES WHE.M SKIP 
/UO ANOTHER PASS 
/EXIT 



iErr 



VCHKR 



PAGE 10 







/SETUP 

/ 

SETUl 


FOR FIRST 4K FIELD 




tfv'624 


000000 







rf4 625 


203214 




LAC FIRST1 


/FIRST TO TEST 


01 - : 626 


043206 




DAO MEMADR 


/ADDRESS COUNTER 


0C 627 


043207 




DAC SVADR 




1-630 


770U00 




LAW -1/1000 




4 6 3 1 


043210 




OAC CT-1K 


/4K COUNTER 


Mi 632 


620624 




JHP* SETUl 


/EXIT 



04*633 


000000 


04 634 


100663 


04-635 


543206 


/j i 63 6 


741C00 


0v- 637 


620633 


ZH64 


100653 


4- 641 


600644 


ki("64 2 


440633 


M4 643 


620633 


W 4' 6 4 4 


203207 


1 6 4 5 


343273 


01 64 6 


043207 


01 647 


04i206 


01-650 


77000/ 


4 651 


4 3210 


01 652 


600634 



»ji fc53 


00 00 


0i» 65 4 


750004 


1' 6 5 5 


741100 


454 656 


100667 


!■■' 65 7 


20324)7 


01' 660 


543215 


it) 4 b 6 1 


60 64 2 


wi'662 


60 6 4 4 



04-663 


000000 


tf 4' 6 6 4 


200663 


0^665 


503277 


016 6 6 


620663 



/CURRENT PROGRAM FIELD 
/NEXT TO TEST 

/EXIT 

/SEE IF CURRFNT IS LAST 

/NO, ADD 4K 

/RETURN +1 



/CURRENT +4K 



/ROUTlNt TO SEF IF TESTED FIELD HAS PROGRAM 
/ 

C8ANK 

JMS WHFRF 

SAD MEMADR 

St\P 

JriP» CHANK 

J MS NXTBNK 

jnP .+3 
NOMOR IS? CBANK 

JMP» CflANK 

LAC SVADR 

TAP K10K 

OAC SVADR /NEW FIELD 

OAC MEMAOR 

LAW -l/'000 /-4K 

DaC CT4K /4K COUNTER 

J*P CriANK+1 /EXIT AND TEST NEW FIELD 

/ 

/ROUTINL TO CHI-C* FUR LAST FIELD 
/ 
NXTbNK 

LAS /CHECK ACS0 FOR HALT 

SPA 

JMS HALT /GO HALT 

LAC SVADR 

SAli LASTl /ALL DONE IF EQUAL 

jmp no;-i or 
jmp nomor+? 

/ 

/ROUTINE TO DETERMINE WHERE PROGRAM IS 

/ 

WHERE /CONTAINS EPC 

LAC .-1 

AND K7<1K /CLEAR ALL BUT BITS 3.4,5 

JMP» WHERE /EXIT 

/ 

.EJECT 



9CHKR 



PAGE 11 



KH 667 
Ht'6 70 
Hi- 671 
01 672 
(/ 6 7 3 
6 7 4 
HI* 675 



Kit 676 
Ht 677 
Hi- 700 
HI 701 
H^'70 2 
wf 703 
idk- 704 
kH 705 
vi i 706 



«>■ 


70 7 


HI- 


710 


HI 


711 


Hi' 


712 


HI 


713 


id I -714 


HI' 715 


01- 71 6 


/n 


717 


Hi- 


7?tf 


nt 


721 


Ht 


722 


HI 723 


HI 


724 


Wl 


725 


Hi- 


726 


nt 727 


wt 


736 


Hi- 


731 


nt 732 


Ht 733 


Hv 


734 


Hi 


735 


Hi- 736 


HI- 737 



000000 
740040 
7 5 0) 4 
503302 
543170 
6214667 
600246 



000000 
100707 
503274 
740001 
042106 
442106 
600703 
70770? 
62H676 



H H 
707704 
2H0735 
540736 
741H00 
600724 
200737 
H40735 
203316 
744010 
741400 
343?45 
043316 
220735 
343316 
060735 
203330 
740H20 
360735 
043330 
440735 
620707 

003327 
003327 
003317 



HALT ROUTINE, PRESS CONTI 
TESTING. OR IF ACS CHANGES 

NEW PARAMETERS, 



ALT 





HLT 

LAS 

AND K^7 7 

SAO MCWA 

JMP* HALT 

JMR STOVER 
/ 

/STALL ROUTINE 
/ 
STALL 

JmS KESHAN 

AiMlj K17S 

Ci'iA 

OaC CRLE 

lb if CRLE 

JhP , -l 

E E M 

JMP* bTALL 
/ 
/ 

/RANDOM iVUMriEH GENERATOR 
/ 
GENRAN l 



NUE TO RESUME 
, TO EXECUTE 



/PRESS CONTINUE 



/RESUME WHERE LEFT OFF 
/EXECUTE NEW PARAMETERS 



/GET RANDOM NUMBER 
/77777. MAKE ttK MAXIMUM 

/USE AS COUNTER 
/STALL 



/EXIT 





LKN- 




Lac: i< a juE x 




SAO ENTbL 




Skp 




JMP RA-iTAU-1 




LAf: TuLTOP 




iiaC RA'vuFX 




I.Al. RA 'CON 




CLL !RAL 




SifL 




TA!. Kl 




n«;; r a icon 




L*r« kANDEX 


RANT AD 


Tm|. ra con 




DAC* RANIJEX 




LAC RA^ISAV 




RAh 




TAD* RANOEX 




l)AC RA'vlSAV 




IS;" RANOEX 




JMt- 1 * GENRAN 


/ 




RANOEX 


RA^THL+10 


ENTBL 


RAi^TBL + 10 


TBLTOP 


RANTRL 




.EJECT 



/check for enu ue table 
/gfnekate ramoom 
/top of table 

/test bit h 



/INCREMENT POINTER 



VCHKR 



PAGE 12 



7 4 
01-' 741 
ifl I 742 
0v 743 

fr 7 4 4 
01-745 
0(- 746 
0( 747 
id t 750 
0t 751 
01- 752 
.H 753 
,-)(•■ 754 
01-755 
/H 756 
M- 757 

01 76k) 
01 761 
01 762 

0t- 7 63 
*)fr 764 
0c 765 

I- 7 6 6 
^ t 76 7 
0^770 
0P771 
■wf7 72 
0. 773 
0v774 
0t'775 
Hi 7 76 
•n 777 

01 000 
01001 
010 2 
01003 
01004 
01005 
01 006 



000000 
707704 
043216 
203206 
043217 
203305 
541104 
741000 
600754 
201103 
043305 
600763 
2^)3217 
503277 
5431.67 
600763 
043167 
063305 
443305 

760000 
543164 
600530 
750004 
742010 
740100 
600775 
760207 
1B2043 
601003 
750004 
7 4 010 
740100 
601007 
100667 
601007 
750004 
741100 
100667 
600530 



/ERROR PRINT-OUT ROUTINE, PLACE ACS0 UP FOR 

/HALT AFTER PRINT-OUT. PRESS CONTINUE 

/ 



ERROR 



/ 

SW2 



SHI 



SW0 





LEM 

DAC 

LAC 

OAC 

LAC 

SaO 

SkP 

JMP 

LAC 

OAC 

JMP 

LAC 

AnO 

sad 
jmp 
D a c 

DAC» 



HAU1 

MEMADR 

OCAOR 

EKWRO 

ENFRR 

.+4 

ERTBL 

FRWRD 

OCAOR 
K70K 
LAST 
.+4 
LAST 
E^WRO 



IS? ER*iRD / 



/SAVE BAD DATA 

/SAVE FAILING ADDRESS 
/ERROR TABLE POINTER 
/LAST ADDRESS OF TABLE 



/FIRST ADDRESS UF TABLE 

/PUT POINTER TO TOP OF TABLE 

/CHECK AC2 FOR BELL 

/FAILING ADDRESS 

/MASK 3, 4 AMD 5 

/NEW ERROR FIELD IF SKIP 

/SAME FIELD AS LAST ERROR 

/STORE FIELD* IN TABLE 
/INCREMENT POINTER 



LAW 
SAD 
JMP 
LAS 
RTL 
SNA 
JMP 
LaU 
JMS 

jrtP 

LAS 
RAL 
SMA 
JMP 
JMS 
JMP 
LAS 
SPA 
JM>i 
JMP 



/PRINT 

NUPRNT 
FRRTN /NO 



Swl 
207 
PC-IAR 



INHIBIT 
PRINT 



IF = LAW 



/BELL IF SKIP 

/CHECK ACS 1 

/ASCII BELL 

/PRINT 

/CHECK ACS TOR HALT 



DOT' KR 

HALT 

DUERR 



HALT 
ERRTN 



/NO SKIP 
/PRINT 



/HALT 
/PRINT 



INFO 



/NO SKIP 



= PRINT INFO 



HALT 



/RETURN TO READ ROUTINF 



.EJECT 



VCHKR 
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/SETUP 
/ 

DOFRR 


TO PHFNT FRROR 


/j 1 Pi 7 


203216 


Lac 


RA01 /BAD DATA 


»41 010 


741200 




SNA 




01011 


601024 




JMP 


STER-6 


HI 012 


740001 




CMA 




'0 1013 


741200 




SNA 




01014 


601024 




JMP 


STI R-6 


0] 015 


740001 




CM A 




01 016 


503235 




ANli 


HITSUP 


01017 


740200 




S*A 




01020 


740001 




C'1A 




01021 


50 32 35 




A N 1 1 


H1TSUP 


0J022 


741200 




SNA 




01023 


600530 




JMP 


EKHTN /ERROR IS 


01024 


202715 




LAC 


PriOR 


01025 


741200 




SiMA 




1 2 6 


1*»2715 




JrtS 


PH >tf 


/<1027 


203203 




LAC 


TN'JM 


w!030 


102043 




JrtS 


PCHAR 


01031 


777767 




LAIN 


-11 


5 3 2 


043213 


STF.R 


OAC 


CT44 


1 3 3 


102115 




JilS 


SPING 


01 034 


203217 




LAC 


OCAUR 


01 035 


042106 




DAC 


CKI..F 


v, 1 3 6 


102123 




JrtS 


PKOCTL 


01037 


77777? 




LA- : 


-f> 


010 4 


043213 




DAC 


CT M 


0104 1 


1021 15 




J MS 


SPING 


010 4 2 


203220 




LAr: 


c.onui 


01043 


042106 




rue 


CHLF 


010 4 4 


102123 




J. is 


PrtOCTL 


.11 045 


777776 




LA'v 


-2 


0104 6 


043213 




n a c 


C T ■' 4 


k<1 b4 7 


102115 




J is 


SPING 


^11050 


203216 




LaC 


H A '"1 1 


01051 


042106 




OAC 


CHLF 


01052 


102123 




JmS 


PKOCTL 


01 053 


777773 




LAk 


-o 


01054 


043213 




OAC 


t: T /' 4 


010 5 5 


102115 


INDY 


Ji-iS 


SPING 


0105 6 


20317? 




l a c 


CNTKL 


01057 


042106 




A C 


CRLF 


01 060 


102123 




JmS 


PHOCTL 


01061 


102106 




JUS 


CHLF 


01062 


443304 




IS£ 


MaxL'RK 


01.063 


601003 




JMP 


Sw* 


01 064 


777700 




LAW 


-l-'<0 


01065 


043304 




OAC 


MAXERR 


01066 


760000 




LAk 




01067 


043164 




A C 


NOPRNT 



/MASK SUPPRESSEO bITS 



/NEW ERROK IF SKIP 
SUPPRESSFU 



/ASCII TEST NUMBER 

/PRINT TFST NU. 

/-9 

/USEO FOR SPACING C.QUNT 

/SPACE 9 

/OCTAL ADDRESS 

/SAVE TEMPORARILY 

/PRINT FAILING ADDRESS 



/SPACE 7 

/t«HAT OATA SHOULD BE 

/PRINT THE GOOD 



/SPACE 5 

/DATA READ 

/SAVE 

/PRINT THE BAD 



/SPACE 5 

/CURRENT CONTROL wORl) 

/SAVE 

/PRINT PATTERN CONTROL WORU 

/CR. LF 

/CHECK FOR MAX. PHINT-OUTS 

/CHECK ACS tf 

/-64 DECIMAL 



/NO MORE ERROR PRINT-OUTS 
/UNTIL RESTART FROM 100 



.EJECT 



VCHKR 



PAGE 


14 








01070 


201105 




LAC 


PTO 


01071 


043221 




QAC 


PRNT 


01072 


102050 




JMS 


PNXT 


f)l0 73 


102106 




JMS 


CRLF 


01074 


777766 




LAW 


-12 


01075 


043213 




DAC 


CT04 


01076 


760212 




LAW 


21? 


W1077 


102043 




JMS 


PCHAR 


lu 1 1 PI 


443213 




IS? 


CT"!4 


HI in 


601076 




JMP 


.-3 


01 102 


601003 


/ 

ERTBL 


JMP 


Sw;^ 


/ill03 


003306 


EHWRO+l 


011/4 


M 3 3 1 A 


FNERR 


FKWRD+11 


0110 5 


003134 


PTO 
/ 


PTni 





/PRINT-OUTS INHIBITED 

/CR,LF 

/-10 DECIMAL 

/LF 

/IB LINE FEEDS 



/ERROR TABLE POINTER 

/POINTER FOR PRINI-OUTS INHIBlTtD 



.EJECT 



VCHKR 
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k)1106 
133 107 



703302 
707704 



01110 


202022 


Ullll 


(043221 


k)1 112 


102106 


^11 113 


1 2 '/ 5 


01114 


101573 


10111*5 


543267 


01116 


601106 


01117 


543257 


lOl 120 


601142 


H1121 


777517 


01122 


343213 


141123 


740100 


01 124 


601127 


(0112*3 


102707 


(01126 


601110 


01127 


203213 


(01130 


740001 


(0 1131 


343245 


i01 132 


343262 


(01133 


74iO100 


(01 134 


601137 


HI 13b 


102707 


01.136 


601110 


01137 


760000 


01 140 


243213 


01 141 


043203 



/KEYBOARD INPUT ROUTINES 
/ 

KYBRO CAF 
LEM 
/ 

/TYPE TEST* AND <UIT FOR INPUT. CARRIAGE 
/RETURN ONLY MF ANS USE LAST PATTERN WRITTEN 
/ 



TSTNO 



TSTN 



LAC TS\-X 

DAT PKxT 

JflS CriLF 

J .'IS Pi-jXT 

J ."IS KLYIN 

S AH K3 77 

Jtfp KY^RD 

SAT. K215 

JMP AU'U 

LAW -261 

TAIj CT-04 
SMA 

J^P . *3 

JHS WOTIS 

JMH TSTNO 

LAC CTM 
C^A 

TAfi Kl 

T A I J K 2 6 4 
S.*.A 

JrtP .+,< 

JMS WOTIS 

J;1P TSTNO 
LAW 

Xt'iW CT ; '4 

DAT T.M'.JM 



/POINTER FOR TEST* 

/CR, LF 

/PRINT TEST* 

/WAIT FOR INPUT 

/START OVER IF A RUB-UUT 

/CHECK FOR C.R. 

/USE LAST PATTERN WRITTEN 

/-l ASCII 

/MINUS = INPUT <1 

/PRINT QUERY AND RESTART 

/TEST* IN ASCI I 



/SUBTRACT ASCII 4 
/MINDS = TEST* >4 

/PRINT QUERY ANO RESTART 



/NEW TEST NUMBER 



.EJECT 



VCHKR 
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/WAIT 

/ 

ADRl 


FOR FIRST 5 DIG 


41142 


201666 


LAC 


ROTB 


01143 


041665 




OAC 


ROTA 


4114 4 


221665 




LAC< 


» ROTA 


4114b 


043227 




DAC 


NROTA 


4 J 1 4 6 


760000 




LAk 




4114 7 


043225 




DAC 


A DP A 


W1 150 


14322? 




n*M 


AURCW 


41151 


102106 




JMS 


CKLF 


41152 


202023 




LAC 


ADRX 


41153 


443221 




OAC 


PRMT 


41 154 


102450 




JiiS 


PNXT 


41 155 


20?4?4 




LAC 


AU1R 


41156 


043224 




OAC 


OVER 


41 157 


202425 




LAC 


DON1 


41160 


043223 




DAC 


EXIT 


41161 


101573 


FADR 


JMS 


KEYIN 


41162 


10160? 




J rlS 


LEr,AL 


41163 


203213 




LAC 


CT"*4 


41 164 


503247 




AiMLi 


K7 


41165 


043213 




DAC 


CTM4 


41166 


101637 




JMS 


GETAD 


K21167 


601161 




JMP 


FA!!R 


41170 


203222 




LAC 


AOWCW 


41171 


043225 




DAC 


AD*A 


41172 


201666 


DFST 


LAC 


ROTb 


41173 


541665 




SAO 


ROTA 


01 174 


6411 77 




JMP 


. +3 


01175 


441665 




n a c 


ROTA 


01176 


601613 




JMP 


QUERY 


41 177 


101414 




JMS 


PROG 


4120 


601216 




JMP 


A[j><2 


41201 


142106 




JMS 


CkLF 


01202 


242033 




LAC 


ADkIP 


41203 


043221 




DAC 


PRMT 


01204 


102^50 




JMS 


PNXT 


41205 


242t"35 




LAC 


OVPLP 


41 206 


043221 




OAC 


PRMT 


41 247 


142450 




JMS 


P im X T 


41 210 


760 4 00 




LAW 




W1211 


041621 




OAC 


LOCAT+4 


41212 


141615 




JMS 


LOCAT 


/<1213 


201636 




LAC 


GETAO-1 


11214 


041621 




DAC 


LOCAT+4 


41215 


60114? 




JMP 


AUR1 



ADDRESS TO LOOP ON 

/POINTER FOR LAW-XX 

/LEFT SHIFT COUNTER 



/SAVES PARTIAL ADDRESS 

/CR, LF 

/POINTER FOR FIRST ADR. 

/PRINT FIRST ADR, 
/C(AD1R) = ADRl 

/C(DONl) = DFST 



/WAIT FOR INPUT 
/SEE IF VALID 
/ASCII INPUT 



/SHIFT LEFT TO FORM AUDRFSS 
/GET NEXT DIGIT 



/POINTER FOR LAW TABLE 
/NOT EQUAL = <5 CHARACTERS 
/O.K. 

/PRINT QUERY ANU KESTART 
/NOW SEE IF 1ST AL)R. IS 
/IN SAME 4K AS PROGRAM 
/OK 
/CR, LF 



/PRINT "FIRST" 



/PRINT "ADR. IS WITHIN PROGRAM' 



/TELL WHERE PROGRAM IS 



/START OVER 



.EJECT 



VCHKR 
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/WAIT 

/ 

AUR2 


FUR LAST 5 OIGI 


1 2 1 6 


760000 


LAW 




01 217 


043226 




DAC 


AORB 


to 1 2 2 13 


143222 




D £ M 


AD^CW 


W1221 


221665 




LAL< 


» kOTA 


HI 222 


043227 




DAC 


N K n T A 


toi 223 


102106 




J.-IS 


CHLF 


/j 1224 


202026 




L AC 


AD*R 


41 225 


043221 




dac 


P H -' T 


01226 


102050 




J MS 


P.myT 


/J 1227 


202027 




Lac 


AD'^R 


v;1230 


043224 




DAC 


D V E K 


01231 


202030 




LAC- 


DQI2 


01232 


043223 




DAT 


Fa IT 


tol 233 


101573 


LADN 


JMS 


K t Y I M 


id 1 234 


10160? 




J'-iS 


LEGAL 


tol 235 


203213 




LAC 


CI '4 


01 236 


503247 




A. Ml 


K7 


4 12 3 7 


043213 




n a c 


CT<M 


012 4 


101637 




JMS 


UtTAD 


012 41 


601233 




jic 


LAOK 


to] 242 


20 3 222 




LAC 


A U ' C W 


01243 


to43226 




Oai 


Ai)-B 


1 2 4 4 


201666 


OLST 


LaC 


Hi.tr a 


012 4 5 


541665 




Sa!> 


RUTA 


« 1 2 4 6 


601251 




J iC 


. + 5 


01 247 


041665 




( ) A f 


RUT A 


") 1 2 5 


6016 13 




J:^ 


riU«- KY 


,'12*51 


1 C 1 4 1 4 




j;-is 


Hk Hi 


01 252 


601270 




J''f 


5TLP 


01 253 


102106 




JhS 


CHLF 


01254 


20 2 34 




L Af 


AD">2C 


01 255 


043221 




DAC 


Ph : "T 


01256 


1020 5'/ 




JMS 


PimXT 


012^7 


202/35 




L a f : 


ovrlp 


to 1 2 6 to 


043221 




1 ! A C 


Pk jT 


W1261 


10 2050 




j.-,s 


P.mXT 


Ml 262 


760M00 




LAl' 




01263 


041621 




DaC 


L u 1.': aT + i 


0.1 264 


101615 




JUS 


LuCAT 


HI 26b 


201636 




LAC 


GETAD-1 


01266 


041621 




DAC 


I UCAT+4 


01267 


601216 




JMI" 


ADR2 



ADDRESS OF BLOCK. 



/FIRST COUNT F OH LEFT SHIFT 

/CR, LF 

/POINTER FOR LAST ADR. 

/PRINT LAST ADR. 
/CUD2R) = AOK? 

/C«D0N2) = OLST 

/WAIT FUR INPUT 
/SEE IF VALID 
/ASCII INPUT 



/SHIFT LEFT TO FORM ADDRF SS 
/GET Nt XT DIGIT 



/NOT EQUAL = <5 CHARACTERS 

/O.K . 

/PRlNl UUF.RY AK) RESTART 
/SEE IF LAST ADDRESS IS IN 
/SAMf 4K AS PROGRAM 
/O.K . 
/CR, LF 



/PRINT "LAST" 



/PRINT "ADR. IS WITHIN PROGRAM' 



/TELL WHERE PhDGRAM IS 



/START UVtR 



.EJECT 



VCHKR 
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/CHK9L 

/ 

/SETUP 

/ 

STLP 


- TAPE 


2 






ADDRESSES AND 


W1 270 


760000 


LAW 




01271 


543225 




SAP 


ADRA 


01 272 


741000 




SKP 




til 273 


601302 




JMP 


CKLST 


01274 


543226 




SAO 


ADR8 


io1 27b 


6M0215 




JMP 


RT ll 


01276 


203226 




LAC 


AU>->B 


01 277 


043225 




DAT 


AU"'A 


•A'i 300 


043230 




DAT 


LIST 


40 1 301 


601344 


/ 

CKLST 


JMP 


SIMU 


*)1 3ti2 


543226 


SAD 


AURB 


til 3k 3 


741^00 




skp 




01 30 4 


601311 




JMP 


CBOTH 


/J 130 5 


203225 




LAC 


AURA 


ti 1 3 6 


ti43226 




DAC 


A0R8 


ti1307 


043230 




l)AC 


LTST 


01310 


601344 


/ 

CBOTH 


JnP 


SIMU 


..1311 


2^3225 


LAC 


AURA 


U1312 


503277 




A :\i i, 


K7 4K 


>A 1313 


043213 




DAC 


CT '4 


101314 


203226 




LAC 


AU'^B 


01315 


503277 




A NO 


K7 'K 


V) 1 3 1 6 


543213 




SAP 


C 1 /' 4 


01 317 


601322 




JMP 


, + < 


til320 


102707 




JUS 


WOT IS 


«1 321 


6011 42 


/ 


J. IP 


A l j 'V 1 


K!1 322 


2H3225 


L AC 


AURA 


til 323 


7 4 * 1 




C1A 




til 324 


343245 




TAT: 


Kl 


til 325 


343226 




Tap 


AO^B 


til326 


74W1O0 




SMA 




H1327 


6(/fl34l* 




JhP 


SI 1U-4 


kJ 1 330 


203226 




LAC 


A u '■> B 


01331 


042106 




rue 


CKLF 


03 632 


203225 




LAf: 


AlKA 


01333 


043226 




OAC 


AD KB 


01334 


043230 




DAC 


LTST 


01335 


2021136 




L AC 


CKLF 


01 336 


043225 




n AC 


AURA 


fell 337 


601344 




JMP 


.♦5 


01340 


203226 




LAC 


AIJRB 


01341 


043230 




OAC 


LTST 


til342 


203225 




L A C 


AURA 


01343 


043206 




DAC 


KE'iADR 



/A LAW = NO 1ST AuORESS 



/A LAW = NO LAST ADURE S 
/RESTART PROGRAM 

/ONLY ONF SELECTED 
/LAST OF BLOCK 



/A LAW = NO LAST ADDRE S 

/ONLY 1 AUDRESS WANTED 
/LAST OF BLOCK 



/FIRST ADR. 

/MASK BITS 3,4 AND 5 

/SAVE 

/LAST ADR. 

/MASK 3.4ANU 5 

/BOTH MUST = SAMF 4K 

/OK 

/PRINT QUERY 

/STAR1 OVER 

/FIRST ADDRESS 

/2'S COMPLEMENT 
/SUBTRACT LAST ADDRESS 
/FIRST IS > LAST IF NEG, 
/LEAVE AS IS 



/FIRST IS NOW LAST 



/LAST IS NOw FIRST 



.EJECT 



^OKR 
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01344 
141345 
01 346 
01347 
01 350 
01351 
01352 
013 5 3 
01354 
01355 
01356 

0135 7 

01 360 
013 61 
01 362 
01 363 
01 364 
01 365 
013 6 6 

0136 7 
01 370 

013 71 

w1 3 72 
01 373 

01374 
01 375 

01376 

0137 7 

1 4 P Vi 
014^1 
w 1 4 2 

1 4 (' 3 

1 4 4 

014 5 
01406 
014 7 
01 410 
01411 
01412 
01 413 



760261 
543203 
001360 
760262 
543203 
601372 
760263 
543203 
601374 
760264 
543203 
601376 

203173 
043172 
102106 
2«3225 
503277 
043206 
770 00 
4 3210 
10 415 
6 01411 

203174 
601361 

203175 
601361 

203176 
601361 

707702 
223206 
740 f /01 
063206 
203206 
543230 
601411 
443206 
601400 
203225 
4 3 2 6 
6^ H00 



/ 

SIMU 

JMP SIM1 



/ 

SIM1 



/ 

SI I* 2 

/ 

SIM3 

/ 

SIM4 

/ 

SCP1 



5TSCP 



LAW 


261 


SAD 


TNUM 


LAIN 


262 


S AD 


TiMUM 


JMP 


SIM2 


LAW 


263 


S A 1 ■ 


TM'JM 


JMP 


SIH3 


LAW 


264 


SAM 


TNUM 


JMP 


S 1-1 4 


L A C 


PC -'A 


DAt: 


CivlTRL 


J MS 


Crtl.F 


LaC 


ALWA 


AM: 


K/MK 


DAC 


me m aor 


LAk 


-l'"000 


DAP 


C1-1K 


J MS 


Gt-^HAT 


j />y 


SFSCP 


lac 


PC MB 


j iip 


srn+i 


LAC 


PC .^c 


J .IP 


SI '1 + 1 


LaC 


pc-<u 


JMP 


S 1 < 1 + 1 


F t r 




I A ("" ) 


» i'iPMADP 


C n a 




[lACi 


» rlEMAUR 


LAC 


NE.NAOH 


SAP 


LTST 


JMP 


. + * 


IS? 


he. * ahh 


JMP 


SCPl 


LAC 


AQOA 


DAC 


"E"ADR 


JMH 


5CP1 



/TEST 1 IF EQUAL 



/TEST 2 IF EQUAL 



/TEST 3 IF EQUAL 



/TEST 4 IF EQUAL 



/WRITE PATTERN »1 

/WRITE PATTERN #2 

/PATTERN #3 

/PATTERN #4 

/SYNC 
/READ 

/COMPLEMENT 
/WRITE 

/CHECK FOR ENU UF BLOCK 

/AODRESS+1 

/STARTING AUDRtSS 



.EJECT 



^CHKR 
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01414 
01415 
01416 
01 417 
w!420 
01421 
01422 
101 423 
01 424 
01 425 

1 4 2 6 

01 427 
01 430 



01 431 
01 432 
01 433 
101 434 

1 4 35 
01436 
14 3 7 
014 4 

01 441 
/J 1 4 4 2 
01 443 
014 4 4 
01 445 
01 446 

01447 
01450 
01 451 
01452 
01453 
01454 
01 455 
01 456 
01 457 



000000 
100663 
042106 
760000 
543222 
621414 
203222 
503277 
542106 
741000 
621414 
441414 
621414 



000000 

143234 
707704 
703302 
202031 
043221 
202032 
043224 
102106 
102050 
IF 15 73 
543257 
621431 
601452 

101573 
543257 
601516 
543267 
601432 
543260 
601447 
101546 
601613 



/ 




/CHECK 


WANTED ADDRFSS 


/ 




PROG 







JMS WHFRE 




DAT CRLF 




LAW 




SAD AURCW 




JMP» PROG 




LAC AURCW 




AND K70K 




SAfl CRLF 




SKP 




JMP« PROG 




IS? PROG 




JMP* PROG 



AND PROGRAM AREA 



/SAVE 



/NONE IF = LAW 



CURRENT 4K BANK 



/C(CRLF) = 

/EQUAL 

/EXIT 

/RETURN+1 

/EXIT 
/ 

/BIT SUPPRESSION INPUT ROUTINE. TYPE A 
/CARRIAGE RETURN TO RESUME TESTING ALL BITS. 
/TO SUPPRESS, TYPE THE DECIMAL BIT POSITION (S) 
/SEPARATING FACH WITH A COMMA. TERMINATE WITH 
/A C.R. PRFSS RUROUT TO RESTART THE LINE IN 
/CASE OF TYPING ERROR. PRESS RUBOUT, THEN C.R, 
/TO RESUME TFSTINU ALL BIT POSITIONS, 
/ 
SUPBIT 

/SUPPRESSION CONTROL WORD 



/ 
AGAIN 








DifM 


SCW 


LLM 




CaF 




LAC 


SUPX 


OAT 


PRNT 


LAC 


SUPXA 


I"! A C 


OVER 


JMS 


CRLF 


JMS 


PN*T 


JMS 


KEYIN 


SAD 


K215 


JHP* SUPBIT 


JMP 


.+4 


jus 


KEYIN 


SAD 


K215 


JMP 


FUT 


SAP 


K377 


JMP 


SUPBIT+1 


SAD 


K254 


JMP 


AGAIN 


J i«lS 


NUMB 


JMP 


QUERY 



/POINTER FOR SUPPRESS 

/C(SUPXA) = SUPBIT+1 

/CR#LF 

/PRINT "SUPPRESS" 

/FIRST CHAR. 

/C.R. = NO NEW INPUTS 

/EXIT 



/WAIT FOR INPUT 
/CHECK FOR C.R. 
/DONE SELECTING 
/CHECK FOR RUB-UUT 

/CHECK FOR COMMA 
/WAIT FOR NEXT BIT POS, 
/DETERMINE INPUT NUMBER 
/NOT VALIU RESTART 
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141460 


741200 


01 461 


60154? 


141462 


043231 


M1 463 


101573 


*Jl464 


543260 


«3 1 465 


601524 


/J1 466 


543257 


kOI 467 


601530 


rf 1 4 7 


543267 


id1 471 


60143? 


VI .1 472 


101546 


01 473 


601613 


01 474 


043232 


dl475 


203231 


/J1476 


7 4 4 010 


v. 1 4 7 7 


7 4 4 1 


wl 500 


744010 


„15P1 


243?32 


01502 


740001 


01 50 3 


043233 


0150 4 


777777 


d1 505 


343233 


w 1 f> 6 


043233 


01507 


203301 


01 510 


744020 


01 511 


443233 


01 512 


601510 


01513 


243234 


01514 


043234 


01515 


601447 



MOTOR 



SNA 




JMP 


2ERO 


OAC 


TTYW 


JMS 


KtYIN 


SAP 


K254 


JMP 


EOM 


Sad 


K215 


JMP 


FOTA 


SAD 


K377 


JMP 


SUPBIT*1 


JMS 


NU^B 


JMP 


OUFRY 


DAT 


TFYX 


LAfT 


TTYW 


RULi 


! rcl; rcl 


XuP 


TTYX 


CrtA 




Dun 


TTYY 


LAi- 


-1 


TAii 


TTYY 


DAC 


TTYY 


LAC 


K4-10K 


WO 




\St 


TTYY 


Jrlp 


. -? 


Xjiv 


sen 


l!AC 


sc^ 


J.^-' 


AGAIN 



/CHECK FOR 

/POSITION 

/SAVE DIGIT 

/WAIT FOR SECOND DIGIT 

/CHECK FOR COMMA 

/2 DIGIT POSITION 

/CHECK FOR C.H. 

/DONE 

/RUB-OUT IF NO SKIP 

/START OVER 

/DETERMINE NUMBER 

/NOT VALID. RESTART 

/SAVE NUMBER 
/PREVIOUS DIGIT 



/COMBINE DIGITS 
/l'S COMPLEMENT 
/SAVE 

/SUBTRACT 1 

/400000 

/SHIFT COUNT 

/INSERT IN CONTROL WORD 

/WAIT FOR NEXT BIT POSITION 
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01516 
01517 
01520 
fc»1521 

M1522 
01523 

*)1524 
01525 
01526 
feJl 5P7 

,,1530 
01531 
01532 
01533 
015 3 4 
k31 535 
01536 
01537 
01 540 
015 41 

,41542 
W1543 
01 544 
01 545 



203234 
740001 
043235 
143234 
102106 
621431 

203231 
740vl01 
343^45 
601506 

203231 
740(^01 
343245 
043233 
203301 
744020 
443233 
601^35 
243234 
601517 

203234 
243301 
043234 
6H1447 



EOT 



/ 

EOM 



/ 

EOTA 



/ 

ZERO 



LAC SCW 

CMA 

OAC BITSUP 

D*M SCW 

JMS CHLF 

JMP» SUPBIT 

LAC TTYW 
CMA 

TAD Kl 
JMP ROTOR 

LAC TTYrt 

CMA 

TAD Kl 

DAC TTYY 

LAC K4/0K 

RCR 

IS? TTYY 

JMP ,-2 

XOR SC* 

JMP EUT+1 

LAC SCW 
XOR K4^0K 
OAC SCW 
JMP AGaIN 



/SELECTION COMPLE1EU 



/CR,LF 
/EXIT 

/SINGLF DIGIT 



/INPUT DIGIT 
/2'S COMPLEMENT 
/400000 
/SHIFT COUNTER 

/EXIT 

/400000 

/WAIT FOR NEXT 
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01546 


000000 


015)47 


2PI3213 


01550 


503266 


111551 


543261 


01552 


741000 


01553 


601560 


01554 


441546 


01555 


203213 


41 55b 


503247 


01557 


621546 


01 560 


543263 


01561 


741000 


015 6 2 


621546 


01563 


203213 


(1156 4 


5v'3?45 


01 565 


740200 


01 566 


h^l571 


01567 


77777-1 


ir;1570 


601b06 


015 71 


777767 


u1572 


h01506 



NUMB 








LAC 


CTH4 


AND 


K370 


SAM 


K260 


SKP 




JMP 


.+5 


I S^ 


NUMB 


LAC 


CT-M 


AM 


K7 


JMP» NUMB 


SAP 


K'270 


SkP 




JliP* NUMB 


LAC 


CT:M 


A.MiJ 


Kl 


S*A 




J,-iP 


.+T 


LA^ 


-1' 


J MP 


ROTOR 


LAw 


-11 


Ji-.P 


ROTOR 



/ASCII INPUT 



/CHECK FOR A 270 OR 271 
/RETURN+1 



/EXIT 

/= 8 OR 9 IF EQUAL 

/INVALID 

/ASCII INPUT 

/= A H IF BIT 17 = 

/A 9 

/SHIFT COUNT OF 8 

/SHIFT COUNT OF 9 
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/ 

/CHARACTER INPUT ROUTINE 


01573 


000000 


KEYIN 





01 574 


700312 




KKB 


«)1575 


700301 




KSF 


01576 


601575 




JMP .-1 


rf1577 


70^312 




KRH 


•j 1 6 


043213 




DAT CT04 


1 6 1 


621573 


/ 


JMH« KEYIN 






/ 

/CHECK 

/ 

LEGAL 


VALIDITY OF INPUT 


*}1 60 2 


000000 


M 


01 603 


203213 




LAC CT04 


01 6^4 


543267 




SAD K377 


ri1 605 


601106 




JMP KYRRD 


1 6 6 


543257 




SAO K215 


01 60 7 


623223 




JMP* EXIT 


1 6 1 


503266 




AND K370 


(01611 


543261 




SAD K260 


10161 2 


62160? 




JMP« LEGAL 


id1 613 


102707 


QUERY 


JMS WOTIS 


141 614 


623224 


/ 


JMP» OVER 



/INITIALISE 
/WAIT FOR INPUT 

/READ BUFFER 
/SAVE 



/ASCII INPUT 
/IS IT A HUBOUT 
/START OVER 
/CHECK FOR C.R. 
/LINE TERMINATFU 

/SHOULD EUUAL 260 

/O.K 

/PRINT QUESTION MARK 

/START LINE OVER 
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/PRINT AREA CONTAINING PROGRAM 



1 6 1 5 


000000 


/ 

LOCAT 





01616 


750004 




LAS 


14 1 6 1 7 


503254 




AND K100 


01620 


740200 




Sif A 


id! 621 


621615 




JrfF'« LOCAT 


0.1 622 


102106 




J PIS ORLF 


01 623 


202M36 




L A f p I S I N 


1(01 624 


043221 




DAC PR NT 


01 625 


1 V 2 5 




J M S P N X T 


wl 626 


10 6 63 




J'lS WHERE 


tfl 627 


7 4 4 010 




RCI ; 


01 630 


742010 






n1 631 


7 4 2 1 






v)1 632 


742010 






01 633 


343261 




T A 1 • KdniA 


01 634 


102043 




J il S P C H A R 


01 635 


10 210 6 




J M S C K L F 


01 63c. 


621615 


/ 


JMP« LOCAT 






/ 

/GFNRRaH 

/ 

GETAi) 


5 n 1 f , I T A u 


01 637 


000^00 





01640 


7M7704 




L t < v ' 


01641 


221665 




l.AC» ROTA 


01642 


043227 




Oac M HOT A 


tf!643 


2^3213 




Lau CT-14 


W1644 


443227 


cnrot 


IS/ MRDTA 


01645 


601663 




J ."IP GOI.EFT 


01646 


24322? 




Xuh ALi^CW 


01647 


043222 




DAC au-<cw 


01 650 


777777 




LAw -1 


01 651 


561665 




SAU» R' ,; TA 


01 652 


6M1*55 




J i"i ^ . + 3 


01653 


441665 




is/ R;)Ta 


01654 


621637 




JMP* b» TAU 


01 655 


201666 




LAC RUTH 


01 656 


041665 




OaC KUIA 


01657 


221665 




LAC* K'lTA 


01 660 


043227 




iui: iMK.'I* 


01 661 


441637 




lb/- GETAI) 


01 662 


621637 




J: v lM» GPTAU 



PTL 



/CR.LF 



/PRINT "PROGRAM lb IN FIFLO' 
/WHERE IS IT 
rtl; PTL 



/ASCII FIELD NlJME<tR 

/CR, LF 
/EXIT 



/GET A NFG. LAW FUR CtlUNT 
/SHIFT COUNTER 
/ASCII INPUT 

/ROTAIF 1 LEFT 
/ADR. CONTROL WQRU 



/REC'U 5 DIGITS Ih EQUAL 

/LAW POINTER + 1 

/EXIT AND WAIT FUR NFXT 

/RFSTuRE POINTERS 



/RETURN+1 
/EXIT 
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01663 


744010 


GOLEFT 


RCL 




141664 


601644 


/ 

ROTA 


JMP 


CNROT 


10166 5 


001667 


.+2 




141666 


001667 


ROTB 


.♦1. 




vol 66 7 


777763 




LAW 


-15 


141670 


777766 




LAW 


-1? 


•41671 


777771 




LAW 


-7 


4 16 7 2 


777774 




LAW 


-4 


i41673 


777777 


/ 

/ROUTINL 

/ 

SLMTS 


LAW 


-1 






TO ACCEPT TEST 


.41674 


M 


(A 




(41675 


707704 




LE*" 




0167 6 


201636 




LAC 


GtTAO-1 


i41677 


041621 




DAC 


LUCAT+4 


141700 


102106 




JMS 


CRLF 


01701 


202037 




LAC 


TLMX 


01702 


043221 




OAC 


PRNT 


*J1 7^3 


102050 




JMS 


PNXT 


rfl 704 


102106 




JMS 


CKLF 


01705 


202040 




LAC 


SLMX 


141 706 


043224 




DAC 


OVER 


01707 


202041 




LAP 


OON3 


/J 1 7 1 V) 


043223 




OAC 


EXIT 


141711 


101573 




jus 


K t Y I M 


u 1 7 1 2 


543267 




SAD 


K377 


1 7 1 3 


601675 




JrtP 


SLMTS+1 


w 1 7 1 4 


101602 




JMS 


LEGAL 


141715 


203213 




LAC 


CTM4 


41716 


503247 




AMD 


K7 


01717 


744020 




HCKi 


; rtr; rtr; 


i41720 


742-^20 








01721 


742020 








141722 


742K20 









/=LOC. OF FIRST LAW 

/LOC. OF FIRST LAW 

/ROTATE 12 LEFT FOR 1ST DIGIT 

/9 LEFT FOR 2ND 

/6 LEFT FOR 3RD 

/3 LEFT FOR 4IH 

/NONE FOR 5TH 

LIMITS FROM KEYBOARD INPUT 



/RESTORL JMP* 
/CR,LE 
/TEST LIMITS POINTER 

/PRINT "TEST LIMITS" 

/CR,LF 

/C (SLMX)=SLMTS*1 

/RETURN ADDRESS=CREVR 

/WAIT FOR INPUT 



RTR 



/SEE IF VALID 

/ASCII INPUT 

/MASK 15.16 AND 17 



.EJECT 



yCHKR 



PAGE 


27 


(41723 


043214 


01724 


101573 


01725 


543260 


id] 726 


741000 


01727 


601613 


01 730 


101573 


01 731 


543267 


01 732 


601675 


01 733 


101602 


01731 


203213 


01 735 


503247 


01 736 


7 4 4 </■ 2 


01737 


742020 


id1 740 


74 2/'20 


01741 


742020 


01742 


043215 


0174,5 


777777 


01 744 


4 3 210 


01745 


443211* 


/il 746 


6 01613 


01 747 


2H3214 


01 750 


740^01 


01 751 


343245 


01 75? 


343215 


01 753 


740100 


01 754 


601763 



CREVR 



DAC 


FIRSTl 


JMS 


KEYIN 


SAD 


K254 


SKP 




JMP 


QUERY 


JMS 


KEYIN 


SAP 


K377 


JMP 


SL^TS*1 


J '"IS 


LEfiAL 


LAC 


CT..4 


A Nil 


k; 


RCRi 


; rtr; rtr; rtr 



DAC 


LAST1 


LA.v 


-1 


It AH 


CT iK 


lb/ 


CT4K 


Jilf- 


UUfRY 


LAC 


FI-ST1 


C "i A 




TM' 


*1 


TAT' 


LAST1 


S .-'i A 




J-',f- 


ok<\s 



/FIRST TO TEST 
/WAIT FOR COMMA 



/PRINT QUERY, AND RESTART 
/WAIT FOR LAST 



/SEE IF VALID 
/ASCII INPUT 



/LAST TO 1FST 



/NO ?ND DIGIT IF NO SKIP 
/PRINT OUtRY AND RESTART 
/FIRST FIELD 

/2'S UOMPLFMENT 

/FIRST IS >LAST If NFG, 

/FIRST IS LOWEST ORDER 
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/ 

/PRINT 
/ 

/PRINT 
/ 

PCHAR 


ROUTINES FOR MES 






ONE CHARACTER ANl 


02043 


000000 







td?e>AA 


700406 




TLS 




? A b 


700401 




TSf 




id £ 4 6 


602045 




JMP 


.-1 


2 04 7 


622043 


/ 

/PRINT 
/ 

PNXT 


JmP» PCHAR 






A ST RINK AND EX I 


KJ ^ 5 


000000 







02051 


777775 




LAW 


-3 


02052 


043213 




DAC 


CT«4 


02 053 


443221 




IS* 


PRNT 


02054 


223221 




LAC» PRNT 


02055 


741200 




SNA 




02056 


622050 




JMP» PNXT 


2 la 5 7 


042106 


MASK 


DAC 


CRLF 


tfi-060 


503253 




AND 


K77 


02061 


543253 




SAIJ 


K77 


02062 


602073 




JMP 


CK3 


02063 


040707 




DAC 


GENRAN 


Hi 064 


777740 




LAW 


-40 


02065 


340707 




TAn 


GEMRAN 


«?W66 


74010W 




SMA 




02067 


602103 




JrtP 


CRLF-3 


2 7 


242C64 




Xuh 


.-4 


'< 7 1 


243264 




XUR 


K3-^0 


02072 


10 20 43 




JHS 


PCHAR 


02073 


443213 


CK3 


I s^ 


CT "A 


V 7 4 


741000 




SftP 




02075 


602051 




JMP 


PNXT+1 


02076 


202106 




LAC 


CRLF 


02 077 


742^20 




rir; 


; RTR; RTR 


02100 


742^20 








02101 


742020 








02102 


602^57 




JMP 


MASK 


02103 


200707 




LAC 


GENRAN 


02104 


343255 




TAD 


K2'''0 


02105 


60207? 




JMP 


CK3-1 



/CHARACTER COUNTER 
/WORD POINTER+1 

/ALL DONF IF 

/EXIT 

/SAVE WORU 

/MASK 6 BIT CHARACTER 

/CHECK IF RUBOUT 

/SAVE CHAR 



/NEG. = ALPHA 
/NUMFRIC 

/MAKE ALPHA 
/PRINT ACS 10-17 
/CHECK FOR 3 CHARACTERS 

/GET NEXT 3 CHARACTERS 
/POSITION NEXT 



/PRINT IT 
/MAKE NUMERIC 



02106 


000000 


02107 


760215 


02110 


102043 


02111 


542113 


02112 


622106 


02113 


760212 


02114 


602110 



/CARRIAGE. RETURN, LINE FEED 

/ 

CRLF 

LAW 21^ 

JMS PCHAR 

SAO .+? 

JMP* CRLF 

LAW 21? 

JMP CRLF+2 



/ASCII CR 



/EXIT 
/IF 
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/ 

/PRINT 
/ 

SPING 


SPACES 




02115 


000000 







02116 


760240 




LAW 240 


/ASCII SPACE 


432117 


102043 




JMS PCHAR 




02120 


443213 




IS? CT<*4 


/COUNTER 


02121 


602116 




JMP SPING+1 




02122 


622115 


/ 

/PRINT 

/ 

PROCTL 


JMP» SPING 


/EXIT 






SIX DIGIT OCTAL 


NUMBERS 


//2123 


00 0000 


n 




02124 


777772 




LAW -6 




02125 


043213 




DAC CT'M 


/DIGIT COUNTER 


02126 


202106 




LAC CRLF 


/OCTAL NUMBER 


02127 


744^10 


POSITN 


rgl; htl 




02130 


742010 








102131 


042106 




DAC CKt F 




02132 


740010 




RAL 




02133 


5<?3247 




AND K7 




02134 


343261 




TAf! K260 




02135 


102043 




JrtS PCHAR 


/PRINT 


M2136 


443213 




IS? CT14 




02137 


602126 




JMP POSITN-1 


/POSITION NEXT DIGIT 


W 2 1 4 


622123 




JMP» PROCTL 


/EXIT 
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/CHKR9L ■ 
/ 

/ROUTINE. 
/ 

CMOVE 


- TAPE 3 








TO DETERMINE FIELD 


02141 


707704 


LLM 




02142 


201103 




LAC 


ERTBL 


02143 


043305 




OAC 


ERWRD 


2 14 4 


203215 




LAC 


LAST1 


02145 


'343214 




Sap 


FIRSTl 


wV-146 


600215 




JMP 


RTN1 


02147 


203165 




LAC 


FLAGS 


02150 


741100 




SPA 




0^151 


600215 




JMP 


RTN1 


02152 


740020 




RAP 




id M 5 3 


741400 




Stl 




vj2154 


602241 




JMP 


NXTMV 


0215b 


443165 




IS* 


FLAGS 


02156 


203215 




LAC 


LASTl 


^2157 


1643166 




OAC 


INSFLD 


02160 


770t*00 




LAW 


-10000 


0^161 


343166 




Tad 


INSFLD 


I6M6 2 


043236 




DAC 


NXLOC 


'.r 1 6 3 


100663 




JMS 


WHERE 


V ■? 1 6 4 


543166 




SAD 


INSFLD 


Id', 165 


602224 




JMP 


SUB1 



FOR RELOCATION 



/LAST TO TEST 

/DON'T MOVF IF EQUAL 

/RETURN 

/PROGRAM FLAGS 

/FORCED MOVE MADE Ih A 1. 

/DON'T MOVE 

/LINK = BIT 17 

/FIRST MOVE IF SKIP 

/SETUP (-OR NEXT MOVL 

/SET FLAG FOR 1ST MOVE 

/LAST = NEW CURRENT FIELD 

/-4K 

/SUbTHAUT 4K FROM CURRENT 

/NXLOC = UEST'N FOR NEXT TIME 

/HHERE ARE wE NOW 

/ALRFADY IN LAST 1 IF EUUaL 

/TRY NEXT LOWER 
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/NOW CF 

/ 

CKERR 


IECK FOR 


ERROR RECORD 


02166 


760000 


LAW 




02167 


563305 




SAD* 


ERWRD 


02170 


602201 




JMP 


STMV 


02171 


223305 




LAC* 


ERWRD 


02172 


543166 




SAL' 


INSFLD 


02173 


602213 




JMP 


EQUAL 


02174 


443305 




IS? 


ERWRD 


vi' r 17b 


203305 




LAC 


ERWRD 


02176 


5411144 




SAD 


ENERR 


217 7 


741/jP)0 




SKP 




02200 


602171 


/ 

STMV 


JMP 


CKERR+3 


02201 


201103 


LAC 


ERTBL 


02202 


043305 




r i a ( ' 


ERWRD 


02203 


203166 




LAC 


INSFLD 


02204 


4 3240 




D»n 


OESTN 


02205 


10 0663 




JMS 


WHERE 


02206 


043237 




DaC 


SOURCE 


102207 


543240 




SAD 


OESTN 


102210 


600215 




JMP 


RTN1 


02211 


203240 




LAC 


OESTN 


02212 


602460 


/ 

/ERROR 

/ 

EQUAL 


JMP 


WHWAY+4 






IN N E> 1 


FIELD. TRY N 


02213 


543214 


SAH 


FIRST1 


02214 


6 02 2 36 




JMP 


DNMVE 


02215 


741200 




S 'M A 




to 2 2 1 6 


602222 




J, IP 


.+4 


02217 


770000 




LA* 


-10000 


02220 


343166 




TAI 


INSFLD 


02221 


4 323ft 




DAC 


MXLOC 


0^222 


201103 




LAC 


ERTBL 


02223 


4 3305 


/ 

SUB1 


OAC 


ERWRD 


02224 


203236 


LAC 


NXLOC 


02225 


543166 




SAO 


INSFLD 


02226 


602213 




JMP 


EQUAL 


02 22 7 


043166 




OAC 


INSFLD 


02230 


543214 




SAO 


FIRST1 


02231 


602166 




JMP 


CKERR 


02232 


770000 




LAW 


-10000 


02233 


343166 




TAI* 


INSFLD 


02234 


043236 




OAC 


NXLOC 


02235 


> 602166 


/ 

DNMVE 


JMP 


CKERR 


02236 


2B1103 


LAC 


ERTBL 


02237 


043305 




OAC 


ERWRD 


02244) 


600215 




JMP 


RTN1 



FIELD 



/NO ERRORS IF = LAW 
/INITIALISE MOVE 

/ERROR IN F IELD IF EQUAL 

/POINTER ♦ 1 

/END OF TAHLE IF EQUAL 



/RESTORE POINTER 
/NEW FIELD 



/NEW AND CURRENT ARE EQUAL 
/MOVE PROGRAM 

/DON'T TRY NEXT IF tQUAL 

/IS IT F IELU 

/YEb 

/-4K 

/SUBTRACT 4K FROM NEW FIELD 

/NEXT NEW FIELD 

/RESTORE POINTER 

/NEXT NEW FIELD 

/IS IT = CURRENT NEW FIELD 

/TRY NEXT LOWER 

/NEW NF« F IELD 

/DOES IT = LOWEST FIELD 

/CHECK FOR E ROR 

/SUBTRACT 4K 

/NEW FIELD FOR NEXT PASS 



/RESTURE POINTER 
/START OVER 



.EJECT 



VCHKR 
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/ROUTINE TO DETERMINE PROGRAM DEST'N AFTER MAKING ONE MOVE 

/WHERE IS PROGRAM NOW 

/NO ERRORS IF 1ST r LAW 

/GET AN ERROR ADDRESS 

/ERROR IN NEXT FIELD TRY NEXT 

/DONE TAHLE AND NO ERRORS 



/RESTURL POINTER 

/NEW FIELD 

/DOES IT = CURRENT FIELD 

/DOES I I = LOWEST FIFLD 

/YES. CLEAR FLAGS AND MOVE 

/DOES THE CU RENT ALSO= 

/THE LOWEST FIELD. 

/YES. SETUP FDR HIGHEST FIELD 

/NEW CURRENT FIELD 

/-4K 

/NFw NEXT FIELD 



«Jr241 


100663 


/ 

NXTMV 


JMS 


WHERE 


02242 


1343237 




DAC 


SOURCE 


01- 243 


760000 


CKNXT 


LAW 




«3?244 


563305 




SAD* 


ERWRD 


0^-245 


602260 




JMP 


STNXT 


*)?246 


2011(33 




LAC 


ERTBL 


w^247 


043305 




DAC 


FRWRD 


i4 k 2 5 


223305 




LAC» 


FRWRD 


0^251 


543236 




SAU 


NXLOC 


0<252 


602300 




JMP 


SUB2 


0^253 


443305 




lb? 


ERWRD 


0:-25 4 


203305 




LAC 


ERWRD 


02255 


541104 




SAD 


ENERR 


0'^256 


741^00 




SKP 




02257 


602250 


/ 

STNXT 


JMP 


CKNXT+5 


*i2260 


201103 


LAC 


ERTBL 


2 261 


043305 




DAC 


ERWRD 


02 262 


203236 




LAC 


NXLOC 


42263 


543166 




SAD 


INSFLD 


w 2 2 6 4 


602267 




JMP 


.♦3 


«U 265 


543214 




SAI.i 


FIRST1 


.42266 


602315 




JMP 


MVBK 


v/;26 7 


543214 




Sad 


FIRST1 


a; 2i\t> 


602311 




JMP 


NXTHI 


^2211 


043166 




DAT 


INSFLD 


2 2 72 


770000 




LAW 


-10000 


02 273 


343166 




TAD 


INSFLD 


02274 


043236 




DAC 


NXLOC 


*j2275 


203166 




LAC 


INSFLD 


02276 


043240 




DAC 


DESTN 


to; 277 


602460 


/ 

SDP2 


JiiP 


WHWAY+4 


2 300 


203236 


LAC 


NXLOC 


02301 


543214 




SAD 


FIRST1 


Iri 2 3 2 


602236 




JMP 


DNMVE 


*J'^303 


770000 




LA* 


-10000 


tf 2 3 4 


343236 




TAD 


NXLOC 


2 305 


043236 




D A r 


'VXLOC 


02306 


543166 




SAD 


INSFLD 


02307 


602301 




JMP 


SUR2+1 


02310 


602246 




JMP 


CKNXT+3 



/MOVE FHOM HERE TO C (DtSfN) 



/IS NEXT = FIELD OR 1ST TO TEST 

/YES. DON'T MOVE 

/-4K 

/NEW NEXT FIELD 

/DOLS IT = CURRENT FIELD 

/YES 

/SEE IF ERROR IN NEW FIELD 



.EJECT 



VOKR 



PAGE 


35 


02311 


203215 


42312 


503277 


02313 


243236 


k3?314 


602246 


«3?315 


10 06 63 


tf2316 


043237 


02317 


203236 


0^320 


1443166 


02321 


1443240 


02322 


143165 


4 2 323 


602460 



*)2 324 
02325 
W2326 
02327 
0-330 
02331 
w2332 
0<333 
02334 
/J '.-335 
02 336 
02337 
2 34 
v)T 341 
02342 
02343 
0234 4 
02345 
02 346 
02 34 7 
/ '^ 3 5 
02351 
02 352 
.'1^353 
02354 
02355 
02356 
02 357 
02360 
02 361 
02362 
02363 



707702 
142675 
770000 
1443210 
203240 
043241 
203237 
043242 
223242 
043203 
503303 
243303 
74120C* 
602364 
203203 
243273 
102544 
063241 
223241 
243273 
563242 
602354 
243273 
102644 
443210 
203203 
542757 
6I/.2374 
443242 
443241 
602334 
740040 



NXTHI 



/ 

MVPK 



LAC 
AND 
OAC 
JMP 

JMS 
DAC 
LAC 
DAC 
OAC 
HjfM 
JMP 



LASTl 
K70K 
NXLOC 
CKNXT+3 

rtHERE 

SOURCE 

NXLOC 

INSFLO 

DESTN 

FLAGS 

WHWAY+4 



/ 

/ROUTINE TO RELOCATE 4K FIELDS 

/ 

MOVE 



MvRTN 



MVOPR 



E2 
/ 



Et> 

n*M 

Law 

OAC 

LAC 

OaC 

LAC 

OAC 

LAC» 

OAC 

AlMli 

XOn 
Sim^ 
JMP 
LAC 

Xljh 

J,*iS 

OAC* 

LAC» 

XUk 

S A D * 

JMP 

yo* 
j .-is 

IS* 

LAC 
SAtJ 
JMP 
IS* 
IS2 
JMP 
HLT 

.EJECT 



LOCER 

-10000 

CT4K 

DESTN 

MOVED 

SOURCE 

MOVES 

MOVES 

TNUM 

K700K 

K700K 

OPRAT 
TNUM 
K10K 
HT19L 
"OVED 
MOVED 
K10K 
MOVES 
.+3 
K10K 
MVEHR 
CT4K 
TNUM 
OLMT 
MVCST 
MOVES 
'MOVED 
MVRTN 



/LAST TO TEST 

/LAST = NEXT FIELD 
/CHECK FOR E ROK 



/MOVE FROM HERE 

/TO HERt 

/GET ONE FROM THIS FIEI.U 

/SAVF 

/MASK OP CODE BITS 

/OP CODE IS 7X IF 
/DON'T MODIFY IT 

/MODIFY HY 1 000 

/PLACE IN NEW 4K FltLU 

/KFSTORt BIT 5 

/COMPARE 

/OK 

/PRINT LRROR 



/C (OLMI ) = 752525 
/MOVF CONSTANT TABLLS 

/SHOULD NEVER SKIP 

/SHOULD NLVER GET HERE 



yCHKR 



page; 


36 








0^364 


203203 


/ 

OPRAT 


LAC 


TNUM 


02365 


102544 




JUS 


RT19L 


02366 


063241 




DAC* 


MOVED 


02367 


223241 




LAO 


MOVED 


tf^370 


563242 




SAD* 


MOVES 


02371 


66)2354 




JMP 


E2-7 


0^372 


102644 




JMS 


MVERR 


1^373 


602354 


/ 

MVCST 


JMP 


E2-7 


0<-374 


443242 


IS2 


MOVES 


w>375 


443241 




IS? 


MOVED 


•a; 376 


223242 




LAC* 


MOVES 


0^377 


1^2544 




JMS 


PT19L 


/JV4 00 


063241 




DAC» 


MOVEO 


0^401 


223241 




LAC* 


MOVED 


id ^ 4 2 


563242 




Sad* 


MOVES 


0ir403 


741000 




SKP 




? 4 4 


102644 




JMS 


MVERR 


/) ^ 4 5 


443210 




IS2 


CT4K 


^ :• 4«6 


602374 




JMP 


MVCST 


0V40 7 


102620 


/ 


JMS 


ENOT 


^410 


203243 


LAC 


8GNL0 


*3 ? 4 1 1 


503272 




AND 


K7777 


«3H12 


243240 




XUP 


r )ESTN 


e5>413 


043243 




DAC 


HGNLO 


vj>A1A 


203244 




LAC 


BGNHI 


ti> 415 


503272 




A NO 


K7777 


0'/416 


243240 




XOR 


OESTN 


02417 


043244 




DAC 


HGNHI 


0M20 


202420 




LAC 


, 


WP-4P1 


503273 




A<ND 


K10K 


02422 


740200 




S£A 




f'^423 


623243 




J,1P» 


RGNLO 


vi?424 


623244 




jnP* 


HGNHI 



/OPERATE INST. 
/ROTATE 19 LEFT 
/DEPOSIT NEW FIELD 

/COMPARE 

/OK 

/PRINT ERROR 



/MOVFD ALL 4K WHEN SKIP 

/MAKE CERTAIN IT MOVED 

/JMP RTN1 IN LO 4K 

/PUT FIELD # ON RTN1 ADK, 

/JMP HTM IN HI 4K 

Z77/7 

/PUI FItLU# ON RTN1 ADR. 



/TEST BIT 5 

/HI 4K TO LO 4K 

/LO 4K TO HI 4K 



.tJECT 



VChKR 
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/ROUTINE TO FORCE MOVE THE PROGRAM. DESTINATION 
/FIELD* MUST BE TYPED IN BY THE OPERATOR (0-7 OCTAL), 
/ 



02425 


203301 


FCOMV 


LAC 


K400K 


02426 


740001 




CMA 




02427 


503165 




AND 


FLAGS 


02-430 


243301 




XOR 


K400K 


02431 


043165 




DAC 


FLAGS 


02432 


201103 




LAC 


ERTBL 


0-433 


043305 




rue 


ERWRD 


02 434 


707704 




LEM 




02435 


102557 


/ 

/CHECK 

/ 

CKFCD 


JMS 


GOTO 






FOR ERROR 


IN NEW FIELD 


w 2 4 3 6 


760000 


LAW 




02437 


563305 




SAD* 


ERWRD 


2 4 4 


602454 




JMP 


WHWAY 


02441 


223305 




LAC* 


ERWRD 


02 442 


543240 




SAD 


DESTN 


02443 


602451 




JMP 


XPRT 


w2 444 


443305 




IS* 


ERWRD 


tf ;- 4 4 5 


203305 




LAC 


ERWRD 


w 2 4 4 6 


541104 




Sad 


ENERR 


02447 


602452 




J MP 


.♦3 


02450 


602441 




JMP 


CKFCD+3 


02451 


102535 


XPRT 
/ 


JMS 


PRSEL 


2 452 


201103 


LAC 


ERTBL 


02453 


043305 




AC- 


ERWRD 


2 454 


203240 


WHWAY 


LAC 


DESTN 


; - 455 


1543237 




SAD 


SOURCE 


02456 


600215 




J MP 


RTN1 


2 4 5 7 


043166 




DaC 


IMSFLO 


2 4 6 w 


503273 




AND 


K10K 


02461 


740200 




S*f A 




02462 


602470 




JMP 


.+6 


02 463 


100663 




JMS 


WHERE 


id J- 4 6 4 


503273 




AND 


K10K 


02-465 


740200 




S*A 




•J 2 4 6 6 


602324 




JMP 


MOVE 


02467 


602474 




JMP 


MSAME 


2 4 7 


100663 




JMS 


WHERE 


02471 


503273 




A Nil 


K10K 


02472 


741200 




SNA 




02473 


602324 




JMP 


MOVE 



/SET BIT FOR FCOMV FLAG 



/RESTORE TABLE POINTER 



/PRINT GO TO FIELD 



/NO ERRORS IF 1ST = 
/SEE WHERE TO GO 



LAW 



/DOES ERROR = NEW FIELD 
/YES, PRINT MESSAGE 
/P01NTER+1 

/SEE IF END OF TABLE 
/DONE AND NO ERRORS 

/PRINT ERROR IN SELECTED 4K 



/NEW FIELD 

/DOES II EQUAL PRESENT 

/NEW CUHRENT FIELD 

/MASK BIT 5 

/TEST BIT 5 

/DEST'N IS TO HI 4K 

/WHERE IS PROGRAM 

/MASK BIT 5 

/TEST BIT 5 

/MOVE FKOM HI 4K TO LO 4K 

/MOVE LU 4K TO LO 4K 

/WHERE IS PROGRAM 

/MASK HIT 5 

/TEST BIT 5 

/MOVE LO 4K TO HI 4K 



EJECT 



VCHKR PAGE 38 



02 4 74 


707702 


02475 


142675 


02476 


770001?) 


02477 


04321? 


02500 


203240 


02501 


043241 


02502 


263237 


02503 


043242 


42504 


223242 


id? 505 


102544 


02506 


063241 


02 507 


223241 


«3^51 fei 


563242 


02511 


741000 


^ ir 5 1 2 


102644 


02513 


443242 


02514 


443241 


<4 ^ 5> 1 5 


443210 


^ ? b 1 6 


602504 


0P53 7 


102620 


02520 


203243 


02521 


503272 


02522 


243240 


02523 


043243 


02524 


203244 


02525 


503272 


02526 


243240 


02527 


043244 


02530 


202530 


02531 


503273 


02532 


740200 


02533 


623244 


W2534 


623243 



/ 

/ROUTINE. TO MOVE. ONE 4K TO SAME 4K 
/ 

MSAME 



MOSOM 



EEM 




D*M 


LOCER 


LAW 


-10000 


DAC 


CT4K 


LAC 


DESTN 


DAC 


MOVED 


LAC 


SOURCE 


DAC 


MOVES 


LAC* 


MOVES 


JMS 


RT19L 


DAC* 


MOVED 


LAC* 


MOVED 


SAD* 


MOVES 


SKP 




JMS 


MVERR 


IS* 


MOVES 


IS? 


MOVED 


IS? 


CT4K 


JMP 


MOSOM 


JMS 


ENOT 


LAC 


RGNLO 


AND 


K7777 


XOR 


DESTN 


DAC 


BGNLO 


LAC 


RGNHI 


A. Ml") 


K7777 


XOP 


DESTN 


DAC 


RGNHI 


LAC 


, 


A NO 


K10K 


S*A 




JMP* 


RGNHI 


JMP* 


RGNLO 



/-4K 

/4K COUNTER 

/MOVE FROM HERE 

/TO HERE. 



/MOVE ENTIRE 4K 

/JMP HTM IN LO 4K 
/PUT FIE.LU* ON ADR. 



/PUT FItLU # ON AOR. 
/JMP RN11 IN HI 4K 

/TEST BIT 5 

/EXIT FROM HI TO HI 
/EXIT FROM LO TO LO 



.EJECT 



VCHKR 
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/PRINT ERROR IN SELECTED 4K 



id ^ b 3 5 


000000 


?RSEL 







0i536 


102106 




JMS 


CRLF 


^537 


202756 




LAC 


ERSEL 


v>?54U 


043221 




OAC 


PRNT 


0'<r541 


102050 




JMS 


PNXT 


0^542 


102106 




JMS 


CRLF 


<o ■<: b 4 3 


602425 


/ 

/ROTATE 

/ 

RT19L 


JrtP 


FCDMV 






INSTRUCTION 


19 LE 


<>>b44 


000000 







*)/b4b 


744^00 




CLL 




*;. 546 


043?03 




PAC 


TNUM 


.^547 


777767 




LAw 


-11 


dk550 


043213 




DAC 


CT04 


<a;-55\ 


203?03 




LAC 


TNUM 


a?bb2 


740(^10 




RAL 




VJ2556 


742«lfr' 




RIL 




v)?bb4 


443^13 




lb/ 


CT04 


ti'/bbb 


6H2553 




JMP 


.-? 


vi?bbb 


6?2544 




JMP* 


RT19L 



/CP.LF 

/TEXT POINTER 

/PRINT 



/WAIT FUR ANOTHER CHOICE 



HEFORE MOVING 



= 



/LINK 

/SAVE 

/-9 DECIMAL 

/SHIFT COUNT 

/INSTRUCTHON 



.EJECT 



^CHKR 
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/KEYBOARD ROUTINE FOR FORCED RELOCATION 
/ 



Ur 557 


000000 


GOTO 







tf^560 


750004 




LAS 




0^561 


503252 




AimD 


K40 


02562 


741200 




SNA 




02563 


602575 




JMP 


NOSW 


k) ;■ 56 4 


102106 




JMS 


CRLF 


/j^565 


202616 




LAC 


PTWLV 


id? 566 


043221 




oac: 


PRNT 


/j2567 


lH205f 




jms 


PNXT 


^570 


751^04 




LAS 




w?57l 


503252 




AMD 


K40 


0P572 


740200 




Sif A 




iO; 573 


602570 




JMP 


.-3 


V>' e 574 


102106 




JMS 


CRLF 


02575 


102106 


NOSW 


JMS 


CRLF 


4?576 


202617 




LAC 


GOFL 


tf<577 


043^21 




DAC 


PRNT 


i426f>0 


102*'50 




JMS 


PNXT 


tf^tfl 


101573 




JMS 


KEYIN 


a T- 6 tf 2 


543257 




SAD 


K215 


/) !•• 6 k ; 3 


602637 


/ 


JMP 


CFLG 


d > 6 d 4 


740H20 


RAR 




id? 605 


742^20 




RTh; 


RTR; 


rf>6t"6 


74^20 








Id 2 6 H 7 


74^020 








02610 


5153277 




AND 


K70K 


02611 


043240 




DAC 


DESTN 


02612 


100663 




JMS 


WHERE 


02613 


043237 




rue 


SUURCE 


VJP61 4 


102106 




JMS 


CRLF 


02615 


622557 


/ 

PTWLV 


JMP» 


GOTO 


02616 


3153 


PUT12 




02 617 


003145 


GOFL 
/ 


GUFLD 





RTR 



/READ ACS 

/CHECK BIT 12 
/EQUALS 
/CR,LF 
/TEXT POINTER 

/PRINT PUT ACS 12 ON A id 



/WAIT FUR THE 

/CR.LF X £ 

/TEXT POINTER 

/PRINT GO TO FIELD - 
/WAIT FOR INPUT 
/A CR = NO FORCED MOVE 
/AND RESUME AUTO HELOCATE 
/CLEAR THE FORCED MOVE FLAG 



/NOT = KO OR CR, SO 
/MUST BL A NUMBER 



/MASK 3,4 AND 5 
/NFW FIELD 
/WHERE ARE WE NOW 
/CURRENT F IELD 
/CR, LF 
/CHECK FOR E ROR 

/PUT ACS 12 ON A 
/GO TO FIELD - 



IT 



.EJECT 



VCHKR 
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0^-620 


000000 


FNOT 







02621 


202675 




LAC 


LOCER 


0?622 


741200 




SNA 




02623 


622620 


/ 


JMP» 


ENOT 


rfI-624 


707704 


LEM 




02625 


142675 




n^M 


LOCER 


02626 


102106 




JMS 


CRLF 


02 62 7 


202705 




lac 


MERN 


0J-630 


043221 




DAC 


PRNT 


2 631 


1H2M50 




JMS 


PNXT 


w2632 


102106 




JMS 


CRLF 


02633 


203165 




LAC 


FLAGS 


■42634 


74110'/ 




SPA 




0'.-635 


6P2425 




JMP 


FCDMV 


«;• > 6 3 6 


61*2260 


/ 

CFLG 


JMP 


STNXT 


w^6^7 


203301 


Lai: 


K400K 


/J r 6 4 


740001 




CM A 




„)2641 


503165 




A NO 


FLAGS 


((52642 


043165 




rue 


FLAGS 


<> 2 6 4 3 


600215 




JMP 


RTNl 



/NO ERRORS IF 
/ENTER NEW FIELD 



/CR.LF 

/TEXT POINTER 

/PRINT NO MORE ERRORS 
/CR.LF 

/ACS A 1 = FORCED MOVE 
/WAIT FOR ANOTHER CHOICE 
/T*Y NEXT FIELD LOWER 



/CLEAR IHt FORCEU MOVE FLAG 
/START UVE.R 



.tJECT 
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02644 


000000 


/ 

MVERR 







02645 


707704 




LEM 




02646 


1343216 




DAC 


RA01 


tf?647 


203241 




LAC 


MOVED 


4 2 6 5 id 


043217 




DAC 


OCADR 


i.;265l 


223242 




LAC* 


MOVES 


02652 


043220 




DAT 


G0001 


J ? 6 5 3 


202715 




LAC 


PHOR 


02654 


74120'/ 




Sim A 




0*655 


1F2715 




J MS 


PHDR 


•a; 656 


202*75 




LAC 


LOCER 


2 65 7 


74120'' 




SNA 




*,; g60 


1^2675 




JMS 


LOCER 


/; J' 6 6 1 


2^2706 




LAC 


JMP3 


2 6 5 2 


041^55 




DAC 


INDY 


? 6 6 3 


102106 




JMS 


CRLF 


X 6 6 4 


777766 




LAW 


-12 


0?665 


601032 


/ 


JMP 


STFR 


ii> X 6 6 6 


201^33 


LAC 


STFR+1 


vd; 667 


041055 




DAC 


INDY 


/j ? 6 7 


750004 




LAS 




02671 


74110? 




SPA 




•d J- 6 7 2 


100667 




JMS 


HALT 


5- 6 7 o 


70770? 




EEf 




id 2 6 7 4 


62264" 


/ 
LOCER 


JMP* 


MVFRR 


id 2 6 7 5 


01" 







/J > 6 7 fo 


102106 




JMS 


CRLF 


? t> 7 7 


202704 




LAC 


HELUC 


;. 7 id 


043221 




DAC 


PRNT 


Ar 701 


102050 




JMS 


PNXT 


027O2 


102106 




JMS 


CRLF 


02703 


622675 


/ 

RELOC 


JMP» 


LOCER 


id?7P4 


003057 


PROM 




027^5 


003071 


NERN 


N u M 




X 7 6 


602666 


JMP3 

/ 

WQTIS 


JMP 


LOCER-7 


id 2 7 7 


tf fr i id 







02 710 


i:''2i06 




JMS 


CRLF 


id? 711 


760277 




LAw 


277 


Hi 712 


1!'J2043 




JMS 


PCHAR 


.J? 7 1.5 


1K2106 




JMS 


CRLF 


02714 


622707 




JMP* 


WOTIS 



/save incorrect instruction 
/field and a dress 

/SAVE 

/C0RREC1 INSTRUCTION 

/SAVE 



/DON'T PRINT IF 1 

/PRIMT PROGRAM RELOCATION FHRUR 

/JMP LOCER-3 



/-10 DECIMAL 
/PRINT INFO 

/EOUALS JMS SPING 



/EXIT 



/CR.LF 

/TEXT PUINTER 



/PRIMT PROGRAM RELOCATION EKRUR 
/CR.LF X 2 

/exit ano print the frrur 



/RETURN FROM PRINT ERKOh 



/CR.LF 
/QUERY hARK 
/PRINT 
/CR.LF 
/EXIT 



.EJECT 
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/HEADER 

/ 

PHDR 


ROUTINE 


0?715 


000000 







W'^716 


102106 




JMS 


CRLF 


0^717 


202751 




LAC 


TSTX 


0I>720 


043221 




OAC 


PRNT 


02721 


102050 




JUS 


PNXT 


0^722 


102744 




JMS 


CLMN 


02 7 23 


202752 




LAC 


ADRXA 


0^724 


043221 




DAC 


PRNT 


0^ 725 


102050 




JiiS 


PNXT 


02726 


lfr'2744 




JMS 


CLMN 


02727 


202753 




LAC 


GUATX 


0; 730 


043221 




OAC 


PRNT 


fc»2731 


102050 




JMS 


PNXT 


02732 


102744 




JMS 


CLMN 


0^733 


202754 




LAC 


8DATX 


0I-'734 


043221 




DAC 


PRNT 


01 735 


102050 




JMS 


PNXT 


02 736 


102744 




JMS 


CLMN 


02737 


202755 




LAC 


PCWX 


^P740 


043221 




DAC 


PHNfT 


02741 


li?2050 




JMS 


PNXT 


02742 


102106 




JMS 


CKLF 


V, 2 7 4 3 


622715 


/ 


JMP# PHOR 


/J 2 7 4 4 


000000 


/ 

CLMN 







02745 


777773 




LA« 


-5 


W2746 


043213 




DAC 


CT |; >4 


02747 


102115 




JMS 


SPING 


02750 


622744 


/ 

TSTX 


JMP» CLMN 


W 'X 7 «5 1 


4002760 


TST 




02752 


002764 


ADRXA 


A DP 




02753 


002771 


GOATX 


GUAT 


02754 


002775 


RDATX 


HJAT 


02755 


003000 


PCWX 


Pl>'K 


0^7^6 


003010 


FRSEL 
/ 

OLMT 
/ 


SLTf 


'.H 


02757 


752525 


7t>?525 






.EJECT 



/CR.LF 

/POINTER FOR "TEST" 

/PRINT TEST 
/SPACE 5 
/"OCTAL ADR." 



/SPACE 5 
/"GOOD" 



/SPACE 5 
/"BAD" 



/SPACE 5 

/"PAT. CONTROL WORD" 



/CR, LF 
/DONE 



/SPACE 



/POINTER FOR "TEST' 

/"OCTAL AUR." 

/"GOOD" 

/"BAD" 

/"PAT. CONTROL WORD 
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;-' 7 6 
vi ^ 7 6 1 

*)?762 

ti'r 763 

? 7 6 4 
Vi'/7bb 
02766 
tf ",76 7 
tf 2 7 7 k) 

02771 

02772 
02773 
0: 774 

0>775 
0', 776 
iy> 777 

3 000 
3 001 
^3002 
id 3 B0 3 
3 Id 12 4 
id?00b 
0>006 
3 7 

03010 
3 011 
03 012 
03013 
0301 4 
03015 
03016 
3 017 
id 3 2 
03021 

3022 
03023 
03024 
03025 

03026 
03027 
03030 
03031 
03032 



002760 
230524 
777724 

000000 

002764 
240317 
401401 
220401 
000000 

002771 
171707 
777704 
000000 

002775 

040102 

000M00 

003000 
240120 
170340 
222416 
401417 
221727 
777704 

00 
003010 

222205 
402217 
401611 
140523 
240305 
400405 
051106 
770414 
000000 

003022 
230524 
774024 

000000 

003026 
221106 
402423 
220401 
777740 



/ 

/CONSTANTS FOR PRINT ROUTINE TEXTS. PACKED 

/3 CHARACTERS PER WORD. 

/ 

/"TEST" 

TST 

230524; 777724; 



/ 

ADR 

24*>317; 401401; 220401; 



/ 

GDAT 

171707; 777704; 



/ 

BOAT 

040102; 



/ 

PCWk 

24^120; 170340; 222416; 401417 



221727; 777704; 



/ 

SLTE* 

2222^5; 402217; 401611; 140523 



24M3t"5; 400405; 051106; 770414 



/ 

TSTNR 



/ 

FADR1 



23^524; 774024; 



221106; 402423; 220401; 777740 
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03033 


000000 


/ 

LADRl 


k)3 034 


003034 


03035 


230114 




03036 


014024 




03037 


402204 




03 040 


000000 


/ 


*> 3 id 4 1 


003041 


SUPR 


3 4 2 


202523 




•43043 


052220 




03 044 


4M2323 




3 4 5 


000000 


/ 

OVRLAP 


3 04 6 


003046 


304 7 


220401 




030 50 


231140 




03051 


11274K 




03052 


1115124 




03053 


204016 




tf3054 


07172? 




d3055 


150122 




M.^056 


0001*00 


/ 

PROR 


03057 


003057 


03060 


172220 




03061 


012207 




03062 


224015 




3 063 


171405 




03064 


240103 




03065 


161711 




03066 


220540 




03067 


221722 




03070 


000 "!00 


/ 

MOMO 


03071 


003071 


03072 


401716 




3 73 


221715 




03074 


0541*105 




03075 


172222 




03076 


772322 




03077 


000H00 





230114; 014024; 402204 



202523; 052220; 402323; 



22M01; 231140; 112740; 111024 



204016; 071722; 150122; 



172220; 012207; 224015; 171405 



24W-103; 161711; 220540; 221722 



40171o; 221715; 054005; 172222 

7/2322; 
.LJECT 



9CHKR 



PAGE 


46 




03100 


003100 


/ 

PROIS 


M31C1 


172220 




3 1 2 


012207 




rf3103 


114015 




03104 


114023 




« 7 105 


064016 




w 3106 


140513 




id 3 1 7 


774004 




/j 3 1 1 


000000 


/ 
TSLM 


03111 


003111 


^3H2 


230524 




3113 


144024 




3114 


111511 




3115 


772324 




*)3116 


000000 


/ 
STACS 


ifl3ll7 


003117 


03120 


240523 




W3121 


4 2 2 5 




03122 


230301 




io3123 


000000 


/ 

FRST 


03124 


003124 


03125 


221106 




03126 


402423 




03127 


000000 


/ 

LSTA 


03130 


003130 


03131 


230114 




03132 


774024 




03133 


<A 


/ 

PT01 


03134 


003134 


03135 


112220 




03136 


402416 




03137 


242517 




314 


114023 




3141 


111016 




03142 


241102 




314 3 


770405 




03144 


000000 


/ 

GOFLD 


03145 


003145 


03146 


401707 




03147 


401724 




03150 


051106 




03151 


400414 




03152 


000000 


/ 

PUT12 


03153 


003153 


03154 


242520 




03155 


030140 




03156 


614023 





172220; 012207: 114015) 114023 



064016! 140511; 774004; 



230524; 144024; 111511; 772324 



24^523; 402025; 230301; 



221106: 402423; 



240114; 774024; 



112220; 402416; 242517; 114023 



111016; 241102; 770405; 



401/A7; 401724; 051106; 400414 



242520: 030140; 6140231 174062 
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143157 


174062 


03160 


014^16 


3161 


776040 


&3162 


0000(90 



014016; 776040; 
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/STORAGE. AND CONSTANT REGISTERS 



03163 


777770 


/ 
S1XT4 


LAW -10 


10 3 1 6 4 


000000 


NOPRNT 





0?16S 


000000 


FLAGS 





0?166 


000000 


INSFLU 





03167 


000001? 


LAST 





w?170 


000000 


MCWA 





03171 


000000 


PCW 





id? 172 


000000 


CNTRL 





03173 


037701? 


POA 


3 7 70 


03174 


001774 


PCWH 


001 774 


03175 


037701 


PCWC 


037701 


id? 176 


001775 


pcwu 


00177>j> 


03177 


000000 


F'ATR 





to 3 2 H 


000000 


PATG 





rf320l 


000000 


PaTWO 





3 202 


000000 


PATN 





3 20 3 


00 


TNUM 





03204 


0000 


1. WR 


V 


032u5 





UPR 





3 20 6 


000000 


MEMAHR 





03 20 7 


000000 


SVADR 





id 3 2 1 


000000 


CT4K 





03211 


000000 


CT16 





t03212 


0001? 00 


CT12H 





03213 


000000 


CT04 





*)3214 


00 00 


FIRSTl 





0^215 


00 00 


LAST1 





03216 


00000A 


BA01 





03217 


000 00 


OCADR 





03220 


000t'00 


G00D1 


17 


03221 


000000 


PRNT 





03222 


000000 


ADRCn 





03223 


000000 


F.XIT 





0?224 


000000 


OVER 





0.<225 


00 00 


ADRA 





03226 


00000M 


AORB 





03227 


000000 


NROTA 


r; 


03230 


000000 


LTST 


•/, 


W3231 


000000 


TTYW 





03232 


000000 


TTYX 





03233 


000000 


TTYY 





03234 


000000 


sew 





03235 


777777 


BITSUP 


LAW -1 


03236 





NXLOC 





03237 


00 


SOURCE 





3 24 


000000 


PESTN 


■;<i 


3 2 41 


000000 


MOVED 





03242 


000000 


MOVES 





03243 


000215 


hGNLO 


RTM 


03244 


010215 


RGNHI 


RTM + 1 '000 
.EJECT 



/COUNTS 64 PASSES BETW EN 

/ERROR PRINT SUPPRESSION. 

/INDICATES END OF ERROR PRINT-OUTS 

/SAVES SUBROUTINE FLAGS 

/CURRENT FIELD WITH PROGRAM 

/LAST FIFLO WITH DATA ERROR 

/SAVES ACS SETTINGS 

/CURRENT PAT. CONTROL wOROS 

/SAME AS PCw 

/CONTROL WORD FUR TEST 1 

/FOR TEST 2 

/FOR TEST 3 

/FOR TFST 4 

/ROTATES CONTROL wORD 

/SAVFS GOOO DATA DURING READ 

/SAMF AS PATG PUT HaS SUPPRESSED bITS 

/HAS CONTROL WORD TO ROTATE 

/ASCII TEST NUMBER 

/LWR WILL = OR 100 

/UPR WILL = 100 OH 300. LWR 

/AND UPR USED TO UFh SET PATTEHNS 

/ADDRESS COUNTER 

/FIELD COUNTER 

/4K COUNTER 

/COUNTS 16 ROTATES 

/COUNTS 128 LOCATIONS 

/UTILITY COUNIFR 

/FIRST FIELD FO TEST 

/LAST FIFLO TU TFST 

/SAVES BAD DATA 

/SAVES FAILING OCTAL A DRESS 

/GOOD DATA 

/POINTER K)H P^INI ROUTINES 

/PARTIAL ADDRESS WORD 

/TO DISMISS 

/POINTER TO START OF SUBROUTINES 

/1ST ADR, FROM KEYBOARD INPUT 

/LAST ADR. FRUH KEYBOARD INPUT 

/ROTATE CUUNTE& 

/LAST AOR. FOR SCOPE L OPS 

/TTYW THRU YY USEU FOR KEYBOARD 

/INPUT BIT SUHPRESSION 

/TEMP STORAGE OF SUPPRESSED BITS 

/EACH SUPPRESSED BIT = 

/NEXT FIELD TO MOVE INTO 

/FIELD TO MOVE FROM 

/FIELU TO MOVE TO 

/ADDRESS COUNTER F OR MOVING 

/SAVE AS MOVED 

/EXIT ADR. TO A LU 4K FIELD 

/EXIT ADR, TO A HI 4K FIELD 
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03245 


000001 


Kl 


1 


03246 


000002 


K2 


2 


03247 


000007 


K7 


7 


03250 


000010 


K10 


10 


03251 


000020 


K20 


20 


143252 


000040 


K40 


40 


3253 


000077 


K77 


77 


143254 


000100 


K100 


100 


03255 


000200 


K200 


2 00 


03256 


000212 


K212 


212 


03257 


000215 


K215 


215 


03260 


000254 


K254 


254 


03261 


000260 


K260 


260 


03262 


000264 


K264 


264 


03263 


000270 


K270 


270 


03264 


000300 


K300 


300 


07265 


000331 


K331 


331 


03266 


00037^ 


K370 


3/0 


03267 


000377 


K377 


377 


03 270 


0120400 


K400 


4 00 


03271 


004000 


K4K 


4000 


03272 


007777 


K777 7 


im 


43273 


010000 


K10K 


10000 


03274 


017777 


K17S 


17777 


03275 


020000 


K20K 


20000 


03276 


040000 


K40K 


40000 


03277 


070000 


K70K 


70000 


03300 


074000 


K74K 


740 00 


033(?1 


400*500 


K400K 


400000 


03302 


577777 


K577 


577777 


03303 


700000 


K700K 


7 B 00 


3 3 & 4 


777700 


MAXERH 


LAW -i 


03305 


003306 


ERWKO 


.+1 


03306 


760000 




LAW 


03307 


760000 




LAW 


03310 


760000 




LA* 


03311 


760000 




LA" 


03312 


7601-500 




LA a 


03313 


7 6 C" 




LAW 


03314 


760000 




LAW 


03315 


760000 




I. A w 


03316 


123456 


RANCON 


12345ft 


03317 


654321 


RANTRL 


654321 


03320 


361416 




361416 


03321 


055363 




0:>5363 


03322 


546060 




M6060 


03323 


243035 




243035 


03324 


762572 




762572 


03325 


453237 




453237 


3 326 


150214 




150214 


03327 


000000 







3330 


000000 


RANSAV 
/ 






000200 



.END tiEGlN 

NO ERROR LINES 
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ALH 


02764 


AUKA 


03225 


aO"B 


03226 


AU^CW 


03222 


rtD'<X 


02023 


A U N X A 


02752 


AQ'<1 


01142 


AJrtlP 


02033 


AIH2 


01216 


AU"2P 


02034 


AUXR 


02026 


AU1R 


02*»24 


AO^R 


0?w27 


AG« IN 


01447 


A|_uK 


01776 


!JAl-l 


03216 


'ID AT 


02775 


dOATX 


02754 


->LbINi 


00200 


'<G'\H1 


03244 


iGf\LO 


03243 


JITSUP 


03235 


<■'. B a N K 


00 6 33 


CHfiTH 


01311 


i^FLG 


02637 


^IU RR 


02166 


JKFCP 


02436 


oKL ST 


013£2 


OKNXT 


02243 


CK16 


00547 


JK.5 


02073 


,;l"n 


02744 


oh:f 


700004 


oLlN 


700044 


oLCOP 


00606 


ULSF 


700001 


CMGVF 


02141 


iJNkOT 


01044 


GNTHL 


03172 


bRtAll 


00404 


uRh'VR 


01745 


JRLF 


02106 


CIS. 4 


03213 


l: T 128 


03212 


UT16 


03211 


oT'lK 


03210 


ol2b 


00572 


UE5TN 


03240 


JFST 


01172 


JLiU 


02757 


_<LST 


01244 


uN'VE 


02236 


UUALL 


00v523 


JOtRR 


01U07 


i J \ 1 


02025 
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lj i\ 2 


02030 


J0is3 


02041 


URf AD 


00t>64 


LNtRH 


01104 


tNCT 


02620 


tNTBL 


00736 


tu y 


01524 


tor 


01516 


LOTA 


01530 


tOUAL 


02213 


LRKOR 


00740 


LRNTN 


00530 


t-R^EL 


02756 


tRfBL 


011^3 


LRwRD 


033M5 


k.XAM2 


00274 


LXAM3 


00300 


tXAM4 


00304 


LXIT 


03223 


txrsT 


00270 


t2 


02363 


f AOR 


01161 


FAUR1 


03026 


TCOMV 


02425 


FIHSTI 


03214 


(•LAGS 


03165 


FR^T 


03124 


GOAT 


02771 


uUATX 


02753 


bt^PAT 


00415 


bENRAN 


00707 


ULTAD 


01637 


bOF'L 


02617 


liOFLD 


03145 


UOLEFT 


01663 


bOODl 


03220 


viOTO 


02557 


HALT 


00667 


iNIJY 


01055 


iNbFLU 


03166 


JMP 


01346 


JMH1 


00576 


JMP2 


00573 


JMP3 


02706 


KEYIN 


01573 


*RH 


700312 


ASF 


700301 


«YmRD 


01106 


Kl 


03245 


A I* 


03250 


*1*K 


03273 


M^0 


03254 


rtl/S 


03274 


K2 


03246 


K2^ 


03251 
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K2*!K 


03275 


K2/0 


03255 


K212 


03256 


*215 


03257 


^254 


03260 


K260 


03261 


*264 


03262 


*>270 


03263 


*3*'0 


03264 


*33l 


03265 


*370 


03266 


K3/7 


03267 


|\4K 


03271 


K 4 1'. 


03252 


K4/;K 


03276 


*4^0 


03270 


*4/0K 


03301 


*5?7 


03302 


*7 


03247 


*7/K 


03277 


^7v'i3K 


03303 


K74K 


03300 


K77 


03253 


K7777 


03272 


LAUR 


01233 


LADR1 


03034 


LAST 


03167 


LASTl 


03215 


LEGAL 


01602 


LOCAT 


01615 


LOCER 


02675 


LSTA 


03130 


LTST 


03230 


LwR 


03204 


1 A 3 K 


02057 


•1AXERR 


03304 


'1C"»A 


03170 


'"lEf AD* 


03206 


"10S0M 


02504 


■<10VE 


02324 


ilOVEP 


03241 


'1 V L S 


03242 


■1S4ME 


02474 


"tVHK 


02315 


•-IVCST 


02374 


■1VERR 


02644 


ilVOPR 


02345 


tfVRTN 


02334 


•mEHN 


0271*5 


>it r wk 


00373 


■\l O I* 


03071 


MOf OR 


00642 


nIOPRNF 


03164 


NiOSW 


02575 


*ROTA 


03227 



VCHKR 


PAGE 53 


NU«B 


01546 


NXLOC 


03236 


NXTBNK 


00653 


MXTHI 


02311 


■MXTMV 


02241 


UCADR 


03217 


OKAS 


01763 


OPHAT 


02364 


OVER 


03224 


UV^LAP 


03046 


OVRLP 


02035 


PASSC 


00621 


PATG 


03200 


PATN 


03202 


PATR 


03177 


HATWO 


03201 


HCF 


70^202 


PChAR 


02043 


►'Ch 


03171 


p OA 


03173 


POB 


03174 


HOC 


03175 


POD 


03176 


HOR 


03000 


POX 


02755 


PHIjR 


02715 


i 3 I S I N 


02036 


KNXT 


02050 


POSITim 


02127 


PRNT 


03221 


PRUCTL 


02123 


PROG 


01414 


PRCIS 


03100 


PRGR 


03057 


PKS£L 


02535 


PSA 


700204 


PSb 


700244 


HSF 


700201 


PTC 


01105 


PTOI 


03134 


PTwLV 


02616 


HUT12 


03153 


■JUERY 


01613 


HA\CON 


03316 


YANDEX 


00735 


^ANSAV 


03330 


*A*TAU 


00725 


RANTBL 


03317 


HCF 


700102 


<<CMA 


00514 


PCOMP 


00577 


KEAO 


00463 


RELOC 


02704 


^LOOP 


00503 


^OTA 


01665 
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riOTfi 


01666 


*UTOR 


01506 


r<RH 


700112 


HSA 


700104 


*s^ 


700144 


■<SCNT 


00475 


«SK 


700101 


r^SlOR 


00557 


'UaI 


0H215 


*T19L 


0?544 


zCrl 


1 4 


oC ■< 


03234 


iETAC 


02002 


^LTUl 


00624 


sLTX 


02042 


^I M U 


01344 


SI-1 


01360 


S I ' v 2 


01372 


a 1*3 


01374 


i I M4 


01376 


.^IXT4 


03163 


^L' M TS 


01674 


SLi'X 


02040 


jltep 


03010 


aOURCL 


03237 


SPlN(; 


02115 


oTACS 


03117 


STALL 


00676 


aTk'R 


010 3 2 


3TLP 


01270 


aT^V 


02201 


aT\XT 


02260 


:>"Ji';VFK 


0fc246 


i>T5CP 


01411 


SU"1 


02224 


oil; 2 


\d?6\Av) 


SUPBIT 


01431' 


sUHR 


03041 


iUHX 


02031 


sUPXA 


02032 


JVADR 


03207 


iW;' 


01003 


^>W1 


00775 


^rt2 


00763 


THLTOH 


00737 


FCF 


70 4 2 


TL'X 


02037 


TLS 


700406 


TNUM 


03203 


1 SF 


700401 


ISLM 


03111 


I'S'VX 


02022 


TST 


02760 


TSTn 


01137 


TSTNO 


01110 
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TSTNR 


03022 


TSTX 


02751 


TSTl 


00327 


TbT2 


00340 


TST3 


00351 


TST4 


00362 


TTYW 


03231 


TTYX 


03232 


TTYY 


03233 


UPR 


03205 


"JHtRE 


00663 


"HwAY 


02454 


WLOOP 


00433 


wGTJS 


02707 


XP«T 


0?4 e >l 


*LR() 


01542 
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y£GlN 


0020iJ 


RTi\l 


00215 


aTCVEN 


00246 


cXTST 


00270 


LXAM2 


00274 


LXAM3 


00300 


LXAM4 


00304 


JOALL 


00323 


rsTi 
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